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ABSTRACT 


Ae a Ag a b.85 oye, ORIYE. DIAGNOSTICS 
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diet Youd’ et"SMORE HPOERAT™ sPER*pEMERRB OM" SEEX 


ERROR DETECTION LOGIC IS CHECKED BY SOFTWARE ERROR FORCING. 


GETREaBy PORTA {HETBaNNEBRRERDSPTCERR™ t+ THE ORV 
UESTI"G LS POPES U8 BRCEELR PROBA AOE HPS ARTY 


TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING L 
RHERECAUT IONS HERE 

HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF A PASS, 

MAY LEAVE THE HEADERS IN THE DISK CARTRIDGE IN AN 

UNDETERMINED STATE. 

REQUIREMENTS 

HARDWARE 

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


Cc TELETYPE . 

hone -L OR OR KW 

DOs USF aaa alo Ss 
NOTES: 1. 


TESTS ict KIA. ORF CLOCK IS USED, ALL TIMING 


BEGINNING OF THE TESTS WILL CONFIRM THIS. 
AN ox OFF EITHER FORMATTED OR 
NON-FORMATTED PAC 


PRELIMINARY TESTING & PROGRAMS 
THE RK611 DISKLESS CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU 
PROGRAM CONSIDERATIONS 


PDP-11 FAMILY COMPATIBILITY 
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Ruy iE WITH THE LSI- 4 SNS TRUCT ION SE SET AND CAN TEST 
THE DRIVE CONTROLLER FOR THE SI-4) IS 
The ied O BE DIAGNOSTICALLY COMPATABLE WITH THE RK611. 


3.2 XXDP 
role pee CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE 


CHAIN MODE OPERATION (MONITOR) 


4. THe BUSS aparece IS BYPASSED. 
& CONTROLLER INTERRUPT VECTOR IS 


3. a. ae BE TESTED. 
4. Ves IN THE *DRIVE PRESENT’ CONDITION WILL 


NOTE: THE DRIVE PRESENT CONDITION IS: 


A. 
8: CORRECT PORT SELECTED 
Bat Me Lock i Soy r 
. ADY ROICATOR ON 
DUMP MODE OPERATION (MANUAL ) 
1. INPUT DIALOGUE IF STente> Free eo. 
e. ORIVE 9 CAN res vPaGk IN B OPERATOR IS FIRST GIVEN 
Bolte, '? 0 PLACE T - DRO WITH A SCRATCH 


90 


3.3 ACT/APT 


THIS PROGRAM a per sorn TILE. IT! 
tet da TO ENT THAT APT HOOKS POLL BE IN THE 
PROGRAM & WILL WORK THRU THE *UPTON INTERFACE’. 


FOR OTHER JNTEREACES APT MAY ONLY LOAD & START THE PROGRAM. 
I.E. LOAD & DUMP MODE. 


AUTOMATIC MODE (MONITOR) 


1. INPUT DIALOGUE IS BYPASSED. 
2. t BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS 


€F 
3. ALL DRIVES IN THE "DRIVE PRESENT’ CONDITION WILL BE 
TESTED. 


NOTE: THE ORIVE PRESENT CONDITION IS: 


> 





Ol 


CZR6HEO UNIBUS RK6 OR PRT1 MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE S SEQ 0005 
CZR6HE.P11  2S-JAN-78 12:00 
203 A Y LOADED 
204 B. "SELECTED 
C. Coen DIS 
208 D. ADY INDI BAO oR ON 
208 
208 DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 
4 
a1 3.3.1 APT ETABLE DEFINITIONS 
sis THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
ei TABLE (ETABLE) ENTRIES, VIA RUNNING THE APT UTILITY PROGRAM “TSP” 
16 1. SOFTWARE eso : 
1 F APT SCRIP 
He 2h HF Sradit ive 08 
220 2. ENVIRONMENT MODE: 
Fl BIT 7 = 1 
553 4 STABLE Does SI 
555 BIT 6 : 1 SPOOL HSGs nboes Sf O ABT Se SCRIPT MODE 
o5c BITS = 7 AN EY OUTPUT 
SSP = é eg OUTPUT 
ge? BITS 4-0 NOT USED 
£53 te TRE as 5 
231 tee S by Sree at L ee B, SINSTEA ‘ 
535 OF The AEOMARE sito FINED iN SECTIONS 
23 4. 3.8 4. aie CoE TCH SISTER BEF DN ) Mia By USED 
g38 HOW VER, Bynes id 14 FA ite fect BOOe vst ALi ALWAYS BE gfO0E, 
238 
239 4. SWITCH 2 (USER SWITCH REGISTER) 
B40 ; hot uSeb 
Pye 5S. CPU OPTIONS: 
e43 NOT USED 
2YS 6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
B46 NOT USED 
248 7. INTERRUPT VECTOR 1 
eu9 USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 210 
251 8. BUS PRIORITY 
ebe USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 5 
S4 9. INTERRUPT VECTOR 2: ' 
a5 NOT USED 
257 10. BUS PRIORITY 2: 
258 NOT USED 
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eee 
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11. BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


12. DEVICE MA HAP Ay 
eT Tce SELECT T THE’ ORRESPONDING 
Ore i picts uy BITS Bci8 ARE Not USED. 
13. CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


14. DEVICE DESCRIPTOR CODES (IN WORDS): 
NOT USED . 


DUAL ACCESS 

QUEER Mitr DUAL AOcEDe MUST BE Sui TcHED 79 TRE PoRT UNOER 
T TO PREVENT CONTENTION WITH THE OTHER P 

QUAL, Agceas Tee's WILL BE INCORPORATED IN A SEPARATE PROGRAM 


MEMORY MANAGEMENT 
MEMORY MANAGEMENT NOT USED 


PARITY CHECK ENABLED 


IF_THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 


BAD SECTOR 
THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR 
INFORMATION CONTAINED ON CYL 410, HEAD 2. PRINTOUTS 
OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT. 
EXECUTION TIME 
THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE POP 11/50. 
TOTAL TIME: 5 MIN, 30 SEC 
A BREAKDOWN OF THE MORE LENGTHY TESTS ARE SHOWN BELOW: 
TEST 16 STATIC Cy cr ADDRESS & DIFF REGS-PART 2: 2 MIN, 15 SEC 
TEST 1 MIN 


TEST 37 SEEK FROM” €yvL 0 TO _ ALL CYLS 40 SEC 
TEST 40 SEEK FROM CYL 410 TO ALL CYLS : 40 SEC 
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38 THE ABOVE TIMES ARE APPROX. DOUBLED FOR THE RKO7. 
317 3.9 FAULT ISOLATION 
319 TO BE DETERMINED. 
357 
36¢ 3.10 ERROR CORRECTION AND FAILURE RATE ANALYSIS 
4 THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
325 ANALYSIS. 
459 
358 3.11 DEFAULT UNIBUS ADDRESSES & VECTORS 
30 THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS 
331 OF ALL HARDWARE TO BE USED & THEIR MEMORY ADDRESSES 
35 WHERE THEY CAN BE CHANGED. 
ae , LOCATION DEFAULT CONTENTS 
336 1264 77440 
332 CONPROLLER ANT VECTOR 13t4 216 
RI My 1316 4 
333 Sue STATUS RE 1360 172540 
af FEtRet ELOMUEEE 1336 {78845 
42 L-CLOCK STA REG 1326 177546 
343 -CLOCK INTERRUPT VECTOR 1330 100 
344 -CLOCK_INT T VECTOR 1332 104 
34S TTY KB STATUS REG 1144 177560 
BH6 TTY BUFFER 1146 177562 
47 TTY NTER TAaTus REG 1150 177564 
38 TTY PRINTER FER 1152 177566 
350 
331 4.0 OPERATING PROCEDURE 8&8 CONTROL FUNCTIONS 
53 
35 4.1 PROGRAM LOADING 
356 THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
357 PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
358 SUPPORTED BY XXDP. 
360 
361 4.1.1 LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
363 
364 4.1.2 SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 
366 
367 4.1.3 T DRIVES TO BE TESTED *LOAD’ CONDITION & WITH THE 
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NOTE: THE DRIVE WILL NOT RESPOND TO_ THE ’START _ 
MDO_IF THE RUN/STOP SWITCH IS IN THE ’STOP 


POSITION. 

PRESS ’START’ 

HE PROGRAM WILL IDENTIFY ITSELF AND WELL cern a 
DIALOGUE Ht a HE OPERATOR TO DETERMINE DRIVES TO BE TESTED 
THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY 
THE INPUT pie OGUE . Fee RIP IED DRIVE CANNOT BE FOUND BY 
URS NOT AVAILAR a ra Oe Se eT Le CaS 

NO AveIL Aer no oh GHENT La) Dog WITH THE LOWEST RICAL 


Hb Seton Pans iene acre alte To he 
ee ginning oF o ROH. PRSS. “END OF PASS” WILL BE TYPE TER 


STARTING LOCATIONS 


LOCATION 200 ~ STARTING PRESS TO DEFAULT THE BUSS 
BEST AL Her CONTROLLER INTERRUPT VECTOR 
at VES IN THE *DRIVE PRESENT’ 


NOTE: THE DRIVE PRESENT CONDITION IS: 


A. HEADS MANUALLY LOADED 
aR. CORRECT PORT aeLF TED 
. WRITE LOCK DI D 
D. DRIVE READY INDICATOR ON 


LOCATION 204% - SAME AS 200 START BUT BYPASS TEST 16 (N SQUARE) 
LOCATION 220 - STARTING here bial TO INPUT TESTING PARAMETERS 
VIA_T 


OGUE. BUSS ADDRESS & 
CONT. INTERRUPT VECTOR INPUTTED ONLY ON 


LOCATION 230 - SAME AS 220 START BUT BYPASS TEST 16 (N SQUARE) 1 


LOCATION 260 - RUN MODULE rear -.-DEFAULT MODE _ ONL 
THIS SKIPS OVER THE FOLLOWING TESTS: 


1. TEST 35 FORMAT PACK 
. TEST 36 DECREMENT on cy. 410 TO O & READ HEADERS 
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THE PURPOSE OF BYPASSING IS TO PROVIDE 
A QUICK MODULE TEST 
LOCATION 270 - SAME AS 260 START BUT BYPASS TEST 16 ALSO. 


IMPORTANT: FOR VARIATIONS OF THE ABOVE Bek XxDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 


or a THE PROGRAM WILL DETERMINE WHETHER 


L ERMI 
HE ORIVE TO BE TESTED IS AN RKOG OR RKO7. 
OPERATOR INPUTS ARE NOT REG’D. 


SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 
SWITCH FUNCTION 


15 HALT ON 

14 LOOP ON Test 

13 INHIBIT ost 

le BYPAS onyve arteR °80 ERRORS 

1l INHIBIT ITER 

10 BELL ON ERROR 

3 LOOP ON ERROR 

8 LOOP ON TEST IN SW<07:00> 
SW< 15> 
THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT 
THE ERROR MSG AND PERTINENT ANE Sanat ON. 
PRESSING “CONTINUE” CONTINUES OPERATION OF THE PROGRAM. 
SW< 14> 
THE PROGRAM LOOPS ON ba | TEST THAT IS BEING EXECUTED WHEN 

i IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 

SW< 13> 
THIS SWITCH_INHIBITS ALL ERROR MSGS. NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9). 
WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET. 


SW< 12> 
THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 


SEQ 0009 
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BEEN DETECTED. 


SW<11> 


EACH TEST WILL 
FIRST PASS 2% 
0 


(USUALLY 
USUAL EC's 


SW< 10> 
RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


T OMY Y ONCE. NORMALLY AFTER THE 
H T ITERATED A NUMBER OF TIMES 
iN or CASES). TTING THIS SWITCH INHIBITS 
HAT QUICK PASSES CAN BE MADE. 


YeBe 


SW< 09> 
THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR 
ERRORS. IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 

SW< 08> 

THIS SWITCH 


TO SELECT A PARTICULAR TEST (AS PER 
) I HU 
TEST 15 I 

Pp 


QUENT LOOPING. THUS IF 
ECTED THE SWITCH SETTING WOULD BE 
wr f HAT BEF SEL EA ING & LOOPING TEST 15, 


SOFTWARE’ SWITCH REGISTER 
The THE PROGRAM IS ON_A_SWITCHLESS PROCESSOR E. ry 1 OR 11734) 


(I. 
Sar hs a Bete Rare fe 
SOFT SWITCH OCATED AT LOCATION 176 (8). THE 


ee eid, ee ROTYBING A TEONTROL 6" 


Fi 
s 
IT 
REV 


THe PR Fels T ANY TIME EXCEPT 
THE * SOF T a Paton! Y “PROCESSING AR rae INTERRUPT. 
IN RESPO al are SWI RH ENTRY RO TINE: 


fet FIRE FUST BE ENTERED. “LEADING ZEROS ARE NOT” 


REQUIRED AND CONTROL _U’ BE USED TO 
CORREC TYPING & CRRORS DURING COTTCH ERY 


ON PROCES arm HARDWARE SuiTCH REGISTERS, THE *SOFT were” 
SWITCH REGISTER MAY BE USED. IF THE PRO ALL 16 
SWITCHES IN THE ’UP’ POSITION ALL SWITCH REGISTER REFERENCES 
WILL BE TO THE ’SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED 


— 
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539 ABOVE MUST BE FOLLOWED. 
Sui 
eve 4.5 INPUT DIALOGUE 

44 THE E DIALOGUE, WILL _BE DONE INTERACTIVELY. rite oPROGRAN WILL 
Sus RE QUE R_BY Y CONSOLE T YPEOUT AMETER MAY 
2u8 even Be ENTERE ance E rer G ge N g WILL 
a Be EcHoeD Te one Boch Fe = OB BEES Be ESE ones 
Bu8 THEN BE ENTE 

1 IMPORTANT: FOR VARIATIO THE ABOVE, SEE XXDP, ACT/APT 
: CONSIDE! ArtoNe oN Meee tts 4.3 & 4xoF 
554 
Bb 4.5.1 DRIVE SELECTION 
4 THE REQUEST WILL BE: 
B53 DRIVES TO BE TESTED: 

FA IS CARRIAGE RETURN TO TEST ALL DRIVES 

eh TAF RET SBE vE" PROSE GROTH. 

64 THE OPERATOR CAN TYPE IN THE SPECIFIC DRIVE NUMBERS 
BES TO BE BE TEST D, oO BRATED BY BMMae : FEAT SAtED By CARRIAGE 
567 
pe8 E.G. DRIVES TO BE TESTED: 1,2,4,6 . 
570 IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XxDP, ACT/APT 
ua CONSIDERATIONS IN SECTIONS 3.2 
573 
Bed 4.5.2 BUS ADDRESS 
57 THE REQUEST WILL BE: 

578 TYPE IN BUSS ADDRESS IF NOT 177440 

580 THE DEFAULT IS A CARRIAGE RETURN 

582 

B83 4.5.3 CONTROLLER INTERRUPT VECTOR 

B85 THE REQUEST WILL BE: 

p87 TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
389 THE DEFAULT IS A CARRIAGE RETURN. 

591 

592 4.5.4 EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
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3 ALL OPERATOR RESPONSES ARE UNDERLINED. 
UNIBUS RKO&-RKO7 DRIVE DIAGNOSTIC 
$398 PART 
CZR6HEO 
DRIVES TO BE TESTED: 1,3<CR> ’ 
603 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


BaRRe 


607 TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 
609 
610 WILL TEST DRIVES: 
611 1 
612 3 
613 
p14 DRIVE 1 
B16 (THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 
618 
619 4.6 PROGRAM EXAMPLE 
a THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
bee DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 
624 UNIBUS RKO6-RKO7 DRIVE DIAGNOSTIC 
625 oe PART i 
ee? WILL TEST DRIVES 
629 0 : 
630 1 
631 
6 DRIVE 0 
634 DRIVE SERIAL NO. AAA 
635 CARTRIDGE SERIAL NO. 888 
637 DRIVE 1 
6 DRIVE SERIAL NO. CCC 
B40 CARTRIDGE SERIAL NO. DDD 
642 END PASS #1 
643 
644 
pie WILL TEST DRIVES: 
4 ; 
e4 sey 
650 


po 
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ns 


, 
ee 


651 
652 DRIVE 1 
653 
654 
» 655 END PASS # 2 
BSE 
B57 (ETC) 
659 THE ABOVE ASSUMES NO ERR ORS DETECTED. 
B60 THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XxXDP 
bbe IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XxOP, ACT/APT 
663 CONSIDERATIONS IN SECTIONS 3.2 
aad 4.7 HALTING THE PROGRAM 
ees THE ERRORTBETONSOER GatGE™D Cor "CEI OR" bho vERmIneD 
669 STATE; OR TE READS GM ORBED - INVALID FoaNAT 
671 TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 
673 F ARE OADED & FURMATTING IS VALID, 
3 a 
67 1. ECHO fC 
67 2. ree “CPU HALTED” 
678 3. THE PROGRAM 
680 IF HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID, 
681 THE PROGRAM WILL: 
ees ae wd NDING, PLEASE WAIT’ 
6 S 5: ahve TESTS) I NSt Pope HEADS AND/OR FORMATS 
pes 4. + eB TP act Be 
658 5. HOLT THE PROGRAM 
689 
690 
631 NOTES: 
693 1. THE ABOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP 
694 MODE (MANUAL). F THE PROGRAM 15 RUNNING IN CHAIN/AUTO 
695 MODE VIA XXDP,ACT,APT; IT WILL IRST LOAD HEADS 
696 AND/OR FORMAT’ CORRECTLY IF REQ’D, THEN IT WILL 
697 JUMP ON ro THE MONITOR WHERE THE NEXT PROGRAM CAN BE 
698 CALLED IN 
700 THE TYPEOUTS WILL BE “ABORT PENDING - PLEASE WAIT” 
201 & “PROGRAM ABORTING” 
703 2. OPERATING THE ‘CONTINUE’ SWITCH ON THE CPU CONSOLE WILL RETURN THE 
704 PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1°ST ORIVE AGAIN. 
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DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 


GENERAL 
A. BASIC CONTROLLER TESTS, SIZING & SETUP 


Sea teeny hemes DRIVES SEEN ON THE LINE OR 
DEFAULTS HE DRIVES SE HE IT 
Sie CK PS PUSTENe OF OR P eL KS FOR USE” IN THE 


B. STATIC & CYCLE UP TESTS 
THESE TESTS CHES OUT THE ABILITY TO SELECT & DESELECT 


WITH THE BRIVE ERY 10 TOT OPERATE BUT’ WITHOUT THE SPINDLE 
SHATUS BITS SETORESET IN PRUPER SEQUENCE: A 


Sipe STaReT Entec BESKEET” Pom 


C. SEEK, WRITE HEADER, READ HEADER TESTS 


M3 CHECK THE ABILITY OF THE DRIVE TO DO SEEKS, 
HE OPERATIONS & 20, ee SECTOR FORMATTING. 


TEST DESCRIPTIONS 
96-96 36-9696 36 AE 3 9 0 9 9 A HB 2 a a a a a a a a a 
BASIC CONTROLLER TESTS, SIZING & SETUP 
eer tertt terri ti titi tiitittttititittitiitiiiiiete iii reter rs ooo 
TEST 1 REFERENCE ALL CONTROLLER REGISTERS 
THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
ACCESSED WIL 


RESUET IN rene OeaY lt ek Baa? MSG. ANY ‘ 


nave IN THIS T RESULT IN ABORTING ALL OTHER 

TESTS AND JUMPIN "END OF PASS’ 
TEST 2 SIZE THE BUSS 

THIS TEST is ENT Y IF *ORIVE ECT DEFAULTED 
ETRE ReBY INGEN 1 AUTO oR A erART IN \ 

EVE Y DRIVE FROM O THRU 7 IS SSED. 

ON TEOLS R ERROR (CERR) IS EXAMINED AND IF_NOT SET 

DRIVE W bh 

TESTING DRIVE ONL 


iF THE ERROR WAS'A RESUL 
’ 


Y 
MOS, UFE OR NED BEING SET; OR BOTH NED & DRA RESET IN- 


| 
Ss 
TESTED AS AN RKOG. IF SET, THE pRockan WILL BYPASS 
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763 DICATING THE OTHER PORT IS ACCESSED. 

cee IF CERR OUE TO DTYE, THE DRIVE WILL BE TESTED AS AN RKO7. 
76 

eee TEST 3 VERIFY OPERATOR DRIVE SELECTIONS 

769 THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 

770 DEF AUL TE RY VE FROM O TO 7 I 


al re ia Cay Aer BoE MEReedha Mae Sela, te 
77 If, GORE WAS SE Loe THAT GRIVE, MALL BEEYERSSED CoO. a 
ff Beh Oe 1 GABEOES PRED He “HBuf feo RED To” 


778 © DTYE, THE DRIVE WILL BE TESTED AS AN RKO7. 
| 76 
| 781 TEST 4 FIND NEXT DRIVE TO BE et 
| 783 THIS TEST FINDS THE NEXT DR ef ee $P ele 
a: CREE WeVPRL Aner icdteo he oat cab dS 
787 
| 788 TEST S UNLOAD DRIVE TO BE TESTED 

790 THIS. TEST TESTED NEXT 
| 7g WAI " NS VERIE Pact FROn ? CORRECT DRIVE. 
| 96 rd Sek hate E GO LOW BEFORE 

793 NG TO THE NEXT TEST. 

bee 
' ae] ERPRRSEKPRR KARA EA KES ESEAARHKREKER KEKE RE RRR RE RE MEA ERERRERELERERHE 
a ae STATIC & CYCL 
a8 MRKEKLHRKRKKKE KEELE LER RE RAKMHKRARKRKKMLKRRKKEKKEKAKKKKS LER KE RHEE KK KE 

800 

a0 TEST 6 REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR3 

803 CHECKS THE ABILITY TO REFERENCE ALL 

B04 DRIVE REGISTERS AND THAT THEY CONTAIN CORRECT STATUS. 

8 

o7 TEST 7 PRINT DRIVE SERIAL NUMBER 

809 THIS TEST READS 8 PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 

B10 IN DECIMAL & IS PERFORMED ON THE IST PASS ONLY 

1 

B15 TEST 10 SET VV WITH PACK CMD 

B15 IF VV IS RESET, THE PACK CMD IS USED TO SET IT. 

817 

818 TEST 11 RELEASE DRIVE 
| 
| 
| 
| 
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TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK 


TEST 12 ORIVE TYPE TEST 


THIS TEST COMPARES DRIVE TYPE IN MSG 
WRONG 


A AGAINST ’DDT’ IN RKDS. 
CDT IN RKCS1 IS SENT & ERRORS ARE VE . 


I 
RIFIED 


TEST 13 C-D PARITY ERROR DETECTION 


TESTS THE ABILITY OF THE DRIVE TO DETECT EVEN PARITY SENT BY 
T R TTING °PAT’ ON RKMR1. 


t ive WEAITY fo THe Lo ERROR on WHICH IS NOW 
CHECKING FOR EVEN. PARITY THEREFORE THE CONTROLLER SHOULD DETECT 


HE ERROR CONDITION IS RESET WITH THE CLEAR CMD 


TEST 14 VERIFY START SPINOLE CMD 
pngon) Cee THE ENTIRE arent SEQUENCE, IE: 


mage Ss ove C Merreetoedec See ee a ike" fhe ppeper SEQUENCING. 


BE ZERO AT 


% 


SEE RITE HERDER TESTO TN NMEEES 
MG EME HE He HE HE HEH HE EE HE HE EH EE HE HG 2 a a HE 


TEST 1S STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 


BUS TESTOSHEEESQERGLDEAS OF Dee Sty RIEEPRRTS a, 


Cat beet dO Pay Tee FTERPOPD Rial Bes GBPWG ISTE 


HAT HEADS DID NO OTHER APPLICABLE STATUS BITS & 


TEST 16 STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 
TEST CHECKS THE ABILITY OF THE DRIVE TO PROPERLY 5° THE CYL 


Ri evbetPbon Meat Sage Et POMEOMEN ALE f 
S PERFORMED I R AS THE ABOVE TEST. 


TEST 17 HEAD REGISTER TEST 
THIS TEST CHECKS THE ABILITY TO SELECT ALL HEADS (0,1,2) 


centeo tr RK6 DR_PRT1 
CZR6HE . P 


=_— 


ot Renta theta 


TON RRR ee ee re ree 
—OWONOULSCWU-OwW 


See 


2S-JAN-78 12:00 
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VIA _RKDA & READING BACK FROM - B3 BY THE 
HEAD 3 IS CHECKED TO PRODUCE I ADOR. 

IN 

E 


S ce CHANG NG HEAD ADDRESSES ARE TIED TO 
SELECTING MUST TRE subd IN SEEK INC 
ILLEGAL THA 
ARE NOT TIED 73° Ris Nenbs 


TEST 20 SEEK TO CYL O 


SE 


: 


LECT ORIVE CMD. 


CMDS 
LETE ALONG WITH 
ING HEAD ADDRESSES 


VERIFIES. THERE Wes "Ro " OROVERENT Y Y CHECKING ALL ruse 


STATUS BITS. RIFIES CMD gore TION ae 


READ HEADER IS YAO PERFORMED HE PACK 


EN 
MAY 


10-1 
NOT BE PORMATTED. 


TEST 21 TEST SECTOR COUNT REG. FOR 22 & 20 SECTOR FORMAT 


TEST 22 DETECT OUTER LIMIT 


SEQ 0017 


st Teal T VERT SES THAT THE ABOVE TEST ate ACTUALLY POSITION ON CYL O 


BY DETECTING OUTER LIMIT AS THE ADJACEN 
AN N ERROR IN THIS TEST INDICATES: 
A. HEADS WERE NOT ON CYL O 
AND/OR B. COULD NOT SEEK IN REVERSE DIRECTION. 


TEST 23 BASIC WRITE/READ HEADER & HEAD SWITCHING T 


EST 


THIS TEST CHECKS ar SuI Tenis ey. a UNIQUE HEADERS 
ON EACH TRACK ar YL , K & VERIFYING THEY REMAINED 
OR F T nee? isto” 


UNIQUE. 22 SEC 


T.E. TRACK Oe ALL O’S FOR ALL SECTOR HEADERS 


TRACK 


— 


0101 FOR ALL SECTOR HEADERS 


TRACK 2: ALL 1’°S FOR ALL SECTOR HEADERS 


TEST 24 BASIC WRITE/READ HEADER TEST; ALL 1’S, 20 SECTORS 


USING WEBR S Dac WRITE & READ SECTOR HEADERS BY WRITING ALL 
1’S AS ATTEMPT ag Mei SECTORS 20 3% 21. ha 


THEY ARE nO RT ADING 22 SECTORS AND 
FINDING O’S eed PROM TH THE VIOUS TEST. 


TEST 25 WRITE & READ HEADERS CYL O, HEAD O 


TEST 26 SEEK FROM CYL O TO 1 & READ HEADERS 


CBREHE.. 


0 w= RK 
Pll 


BK DR_PRT1 
AN-78 12:00 
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THIS rete CKS MSG A&B wn, 2 FOR CORRECT STATUS AFTER RDY 
{5 Reel Ra a Re SEEK Ch oe tt ehhine 
thet ATTN I CEIVED, CERR SANT D FOR RNY ERRORS. 
a DI sue an Hse. Ae es ye TO BE O & CYL ADDR 

IFIED 4 BE 1. 
HEADERS ARE READ FROM_1 SECTOR, HEAD O & VERIFIED THAT THEY ARE 
DIFFERENT FROM CYL 0 TO SHOW THAT THE HEADS DID ACTUALLY MOVE. 


TEST 27 WRITE & READ HEADERS CYL 1, HEAD O 


TEST 30 TEST RECALIBRATE CMD & READ HEADERS 


THIS TEST af et om TBRAT & eres HEADERS. 
, IT VERIFIES ITI ‘/. ON CYL 1 FROM THE PREVIOUS 
TEST DID NOT OVERURITE CYL O ADERS. 


AN ERROR IN THIS TEST INDICATES THAT HEADS: 


A. MOVED TO A CYL OTHER THAN 1 
OR B. DID NOT GET BACK TO CYL O 


TEST 31 SINGLE INCREMENT SEEKS TO THE LAST CYLINDER 


UYTSaIF EaRPERs INE Ba MEABING sBFRSS ul 10° oA ARENA 


TEST 32 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 


(1456 FOR RKO7), TRACK 2 CAN BE READ. 
WHICH IS WRITTEN BY THE 





gi 
T 
2 img: he ae a. T wate 
UTURE “WRITE TESTS W BE BYPASSED. 
HI so'A nae NO STROY ese NFO OR AN ALIGNMENT PACK BY WRITI 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
THIS IS THE FIRST TEST WHERE THE READ DATA CMD IS PERFORMED 


TEST 33 DETECT INNER LIMIT 


THIS TEST VERIFIES THAT THE L 
TEST WAS 632 (1456) BY DETECT 
IF THIS TEST FAILS, IT INOICA 


MIT AS THE ADJACENT CYL. 
DS WERE NOT ON THE LAST CYL 
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987 


WN OWONTULWM-OW 


ae 


BRUT 


[—-—- 


« 


' 
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0 IS NOT VALID. THE FORMAT PACK TEST 


toPto! SEEcUHBOT Es "Tt YOR BN ALIGNMENT CARTRIDGE 


SINCE THERE IS A SEEKING OR LIMIT DETECTION PROBLEM. 


TEST 34 FORMAT PACK 


Be rte eee PACK IN 22 SECTOR FORMAT BY 


Oe Be £1338) WITH WRITE HEADER CMDS (ALL TRACKS). 
AD IN THE NEXT TEST 
TEST 35 DECREMENT FROM LAST CYL TO O & READ HEADERS 


THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY 
SINGLE CYL INCREMENTAL SEEKS. 


TEST 36 SEEK FROM CYL O TO ALL MAJOR CYLS & READ HEADERS 
THIS TEST KS FROM Cy THE MAJOR CYLS & READS HEADER 
Tt FHEN SEEKS CYL 0 8 READS HEADERS. abewenen 


MAJOR CYLS ARE: 1 (DECIMQL) = 1 (OCTAL) 
4 4 
8 10 
16 20 
ss 180 
128 200 
256 400 
Sle 1000 (RKO7) 


TEST 37 SEEK TO ALL CYLS FROM O & READ HEADERS 
TEST 40 SEEK TO ALL CYLS FROM LAST CYL & READ HEADERS 


TEST 41 SEEK TO ALL INVALID CYLINDERS 
T FIE andr * INV ADDR’ 
PRODUCED 8 THAT HEADS DO_NOT ROVE OR 
L IS SPECIFIED INA A SPE 


INVALID _CYLS ARE 633 THRU 777 (8) FOR THE RKO6 
& 1457 THRU 1777 FOR THE RKO7 


OR URLOAD IF AN-TLLEGAL 


THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CASE. 
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ONY TES SePMAESPORSTEER TBS 


SEQ 0020 


ARD FORMATT Ne 48 FOL | OWED BY A 
CYLS BACK TO STANDAR 
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1046 
049 


—— 
oO 
Ww 
oO 


ONOVWKOQOQV0O0000000 
LRRPE RTT RAAAATTA 


NNNNO 
WOW 


Dae = ae be be Be ae ae bn Be Be Be a ae ee ae ban be Bs bmn ae bn Be ee ae eae ee fee ms me ee eee as es ee ne ne Pe ne as as ne ne Pe pe me ne ee 
OOK0WKKOONOO0O0O0000000 


eee OODDKCQO0O0000000 
Atitete tpi fail ba rtitete pit pst trib At thet a Ape eh fc 
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ERROR REPORTING 


ERROR INTERPRETATION 


WHENEVER AN ERROR MSG IS PRINTED OUT, PLL REGISTERS 
AND BND OTHER DA A PE PERTAINING Ba Rr ERROR ARE ALSO GIVEN. 
CONTENTS or Fe BCOARESEOND Ne REG is ERS AT ie Fine OF 


cA Te NS IS MADE 
SHORT i es ara 'e"A VISED 0 LOOK ont 


C ay EXAM NATION OF HE DATA giver Habe a CERTAINLY 
VERY HELPFUL _IN PINPOINTING THE FAULT. A F_EXPLANATION 
WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT THE 


OF 
BEGINNING OF EVERY TEST. ALL THE NUMBERS GIVEN WITH ERROR 
MSGS IN OCT 
NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


ERROR PRINTOUT EXAMPLES: 
EXAMPLE #1: 
MSG AO E 


RROR 
AFTER START SPINDLE CMD & FWD SET 


TEST NO. 
000014 © 916530 


ae Be B3 
144 Ace 013704 0001 


0 

140 169006 40 AOizne 000001 

FKOST 4 RK RKER RKDOS RKDC 
000100 610000 ooocoo aoo000 a00000 


nee 1 0 BS E SHOWS EXPECTED & ACTUAL DATA FOR 


S Be 8 8 3 WIL TYPED OUT ONLY 9s 
REGUI b CYL DIFFERENCE/OFFSET 
RODRESS % HEAD & SECTOR INFORMATION ig & § VARIABLE PARAMETER 


ESREHE.P 


ee ee ee ee ee ee 
frre OOOO 
OO NOUN FwMU-ODDUERE 


UNIBUS _RK& DR_PRT1 
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NO_ATTN IN RKASOF 
AFTER UNLOAD CMD 


TEST NO. PC 
ogons 014330 


RKOS 


RKMR2 RKMR3_ RKER 
000144 100000 oo0000 100101 


{ END OF DOCUMENT ] 


RKCS1 RKCS2 
oo0e06 000104 


RKASOF 
000000 


SEG 0022 
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Pll 25-JAN-78 12:00 
1121 
1lee 
iiss ##% PGM REV 039 ##% 
| tis ° “NLIST CNO,MC,MD 
| 1126 -LIST ME 
11g? -ENABL ABS,AMA 
1128 ;DEFINE SYSMAC MACROS 
1131 167400 SSWR= 167400 
1136 000001 STN= 1 :SET FIRST TEST NO. 
| = =64134 - 
| 1135 
1136 -TITLE CZR6HEO UNIBUS RK DR PRT1 
1137 *xCOPYRIGHT (co 1376, 1977 
1138 jaDIGITA e 
L133 bie eal 
| Liat j xP noone BY GARY PAPAZIAN 
| 1143 5 xTH THIS PROGRAM WAS ASSEMBLED USING THE 
| tis i PACKAGE (MAINDEC-11-DZQAC-C3), JAN 1 
Las : 
1148 .SBTTL OPERATIONAL SWITCH SETTINGS 
1150 5 SWITCH USE 
1152 :% 1S T RROR 
1183 ; i4 Looe oH 
1154 2 13 INHIBIT ERROR TYPE 
112P + if NHIB oR T YERATIONS 
He ery fete & 
1158 1a 8 ON a IN SWR<7:0> 
1161 
1162  SBTTL SUMMARY OF STARTING LOCATIONS 
1164 He 
112 + oq EPULT PARAMETERS & BYPASS TEST 16 
1167 $i 220 PUT. PAR ARE TERS 
1168 * i INPUT PARAMETERS & BYPASS TEST 16 
1170 + eb 
He f Sine 
1173 $# 


PONa?? MAINDEC SYSMAC 
1977. 


;OEFINE SWITCHES 15, rhs 11,10,9,8 


T 
260 RUN MODULE Te Wpete-cermat MODE ONLY BYPASS 
270 SAME aa Se’ START BuT BYPASS TEST 16 ALSO 


SEQ 0023 
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1174 .SBTTL BASIC DEFINITIONS 

11 

Hee pose ENT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
1179 "EQUIV TOT! SCOPE ;;BASIC DEFINITION OF SCOPE CALL 

tigt jXMISCELLANEOUS DEFINITIONS - va 

118 tre iB tESBE FOR CONE"PEED 

1184 000015 CR= 15 

HEE A Wrre i peeckete Ese FE 
1187 a 

1188 acer SrKtnt= 1707 ie ‘iB LInit aoe nae 
1191 1558 BBISP= eae: 33 AY REGISTER 

193 ;#GENERAL PURPOSE REGISTER 

re 000001 Te a Hs ae 

139 vane Res i 

198 004 R4= %4 

199 OS RS= x5 


ee 
Wan 

Uv 

unn 

xX 

ono 

We wewcws es eseews 

~ 


Tm 
oO 
W 
N 
Uv 
oO 
" 
x 
N 


,xPRIORITY LEVEL DEFINITI 
PRO= lo 


ae UBS HAE 
5 ae = Ba HEE @ 
as i PPS ERE § 


;#”"SWITCH REGISTER” SWITCH DEFINITIONS 


1 15= 100 
4 Wi4= 400 
020 13= 200 


WON £W-OwW 


rorururorurorurururulururur 
lal) a yr a a 


Se 


rurorurururu 
BON 
8 
2 
f 


| 
racked _— OF THE STACK POINTER ### 1100 ### 
’ 


es bb bb bb 0 bb bb he he 

BRR e 
£ 
o 
v 
® 
- 
iT} 


Set gy eee RK& DR _PRT1 MACY11 30A(1052) 2@5-JAN-78 12:08 PAGE 2S SEQ 0025 


2S-JAN-78 12:00 BASIC DEFINITIONS * 
1290 gonone a 2 
a Vv 
"BOUIY, SHO, Sug 
QUIV SWO7,SW7 
, 


eeeeeee 


Y Boia 


eee spt EE SSP 


a 


-E 
t 
i 
: “i ,xOATA Bt FINITIONS (BITOO TO BIT1S) 
= 
S attests pitts: 4 
; le | 
= 
eg 20 Bit: 3 
529 001000 Bitos= 1000 
= 
251 000400 BITOB= 400 
TO7= 
ae He @ 
4 04 TOS= 4 
ess 000020 BITOY= 20 
1256 000010 BITO3= 10 
Bes ig 2 
= 
1 T 
1520 a “Eau V 8IT09,B1T 
1261 “EQUIV BITOS;BIT 
1262 “EQUIV 8ITO7,BIT 
1263 “EQUIV BITOS, BITE 
1264 “EQUIV BITOS;BIT' 
1 . au ¥ BITO4 BITS 
1 “EQUIV BITOS, BITS 
ibee ‘EQUIV BITOL BIT 
1390 Bou Vv 100’ B1T0 
1271 “BASIC “CPU” TRAP VECTOR ADDRESSES 
1272 oooc04 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
1s?3 D000 10 Terrvec 19 7 BGRE D AND ILLEGAL INSTRUCTIONS 
1574 000014 T C= Hae 
1275 000014 TRIVEC= 14 3; TRACE TRAP 
1276 000014 TVEC= 14 ;;BREAKPOINT TRAP (BPT) 
1877 gg20 ior C= 30 :: INPUT/OUTPUT TRAP (IOT) #*SCOPE*# 
1 28 = 33 R qt 
18? 030 ENTVEC= 30 ;;EMULATOR TRAP (EMT) **ERROR## 
i3e1 000064 TKvecs BO Ra eR 
4 ee 
1e83 000240 PIR Sec=s40 ;;PROGRAM INTER UPT REQUEST VECTOR 
1285 .SBTTL RKO& CONTROLLER REGISTER DEFINITION 


De a es, 7 Rel a a ee: 


[— sos eee 
i 
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PAGE 26 
CZ2R6HE.P11 25-JAN-78 12:00 RKO& CONTROLLER REGISTER DEFINITION 


1 
1287 ; SBASE=177440 
a |. 00 RKCS1= CON AND STATUS REGISTER 1 
1883 uate RKWC= : + CORD COUNT REGtS R 
| 1291 000004 RKBA= 4 : BUS REGISTER 
1292 00006 RKDA= 6 DESI SECTOR REGISTER 
1293 001 RKCS2= 10 : CON AND STATUS REGISTER 2 
1294 000012 RKDS= 12 !DRIVE STATUS REGISTER 
1295 000014 RKER= 14 i ERR GI 
1296 000016 RKASOF= 16 tATTENT AND OFFSET REGISTER 
1297 000020 RKOC= 20 DEST REGISTER 
1298 oo00024 RKDB= 24 :DA 
1299 o00026 RKMRI= 26 ‘MAINT GISTER 1 
1300 000034 RKMRe= 34 ‘MAINT GISTER 2 (MSG LINE A) 
1301 000036 RKMR3= 36 : MAINT TER 3 (MSG LINE B) 
1302 000030 RKECPS= 30 ‘ECC POSITION INFORMATION 
1303 00 RKECPT= 32 tECC PATTERN INFORMATION 
1305 .SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
1307 ; DRIVE CMDS 
1 LORV= :SELECT DRIVE (GET STATUS) 
1393 iene BLDR 4 : PACK E 
1311 000005 LEAR= 5 !DRIVE CLEAR 
13t¢ 000007 oe ¢ s 
13i3 590013 REcALS; 13 tReCe IBRATE 
t 4 . 
1315 000015 OFFSET= 15 Be ecET 
1316 390017 ERK= | 17 ; SEEK 
131 500021 TAs 21 : DATA 
1318 ggoge 3 WRDATA= ‘WRITE DATA 
1319 00 AD= ; READ R 
1320 000027 FAD= 27° *WRITE HEADER AND DATA 
1321 000031 WRICHK= 31 *WRITE CHECK 
1323 1 Go= BITO ;G0 BIT 
1324 000100 IE= BIT HTreRRUPT ENABLE 
1325 ROY B11? CONTR READY 
1326 4 BALG= TB : SS BIT 16 
1327 951000 BAl7= BITS : ss Bit 17. 
ee eee Bite SUTTER Paap Pe conten, tatu” 
1330 010000 CFMT= BITle * CONT! R pave FORMAT (O=22 SECTOR, 1=20 SECTOR) 
133 ge0g0 BCPAR= Biils ; SERC a: ERROR DETECTED BY CONTROLLER 
1333 100000 CERR= ITs CON LE E 
1334 100000 CCLR= BITIS ‘CONTROLLER CLEAR 
ie .SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
1338 000007 DRVMSK= 7 ;MASK FOR DRI LECTION CODE 
1339 000010 RLS= BITS :DESELECT ORT RELEAGE DRIVE IN BITS 0-2 
i340 o00020 BAI=  ®BIT4 'BUS ADDRESS INCREMENT INHIBIT 
1341 00004 SCLR= BITS ‘SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES 





CZR6HEO UNIBUS RK& DR PRT1 
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ad dab a EES BE 


1 
1 
i 019009 
1 0200) 
1369 040000 
1370 100000 
1371 
1372 
1373 
1374 ooooo1 
1375 
ie pa 
137 00 
1378 p000%0 
1380 000100 
1381 00 
1382 0004 
1383 0040 
1384 020000 
1385 040000 
1386 100000 
1387 
1388 
1389 
Ci 
1345 000040 
i: 
UU 
1345 O04 
i396 001000 
1397 002000 
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CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
R T ; INP ADY 
= ft + ONT PUT REROY 
UFE=  #BIT8 :UNIT FIELD ERROR 
MOS= BiT3 : MULT DRI LECT 
PGE= ITiO : ING € 
NEM= BIT11  NON-EXIST ENT MEMORY 
NED= Bitle : NON XI OR ve ' 
WcE=  BITIa SURI erty ae 
= . 
DLT= Bitte BATA LATE ERRGR 
.SBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 
ILF=  ®BITO ; ILLEGAL FUNCTION CODE 
AME OBITS 
DRPAR= BITS fee *BeHete EB SERCON PARITY ERROR 
FMTE= BIT ; FORMA 
DTYe= BITS iD Pel bets TYPE ERROR 
ECHs BITg BAO Se 
Hvac B18 EPO EC EIR oy ¢ 
TDpE= BITi0 ae RODRESS ERROR: HEAD/CYL 
TE= IT12 sant te aa 
ae pitts Ton (SEARCH) INCOMPLETE 
UNS= T14 : OP FUE Ne 
OCK=  BITIS :DATA CHECK 
.SBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 
2 RIVE AVA (CONTROLLER IS SET IF 
DRA BITO iD "yee ei" LE. (CONT 
OFST= BIT2 ‘DRI 
Betos BITS Be Low 
Beor= ITs :BRIVETOFE, TRACK 
pRov= BIT? :DRIVE READY, 
DDT= BIT8 ‘DRIVE TYPE (O=RKO6, 1=RKO7) 
WRL=  BIT11 ‘WRITE LOCK 
PIP=  ®B1T13 :POSITIONING IN PROGRESS 
pSc= = BIT14 {DRIVE STATUS CHANGE 
SVAL=  BIT1S :STATUS VALID 
.SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 
SMSK= 17 
pa gTsK= girs Ponce ev VEN PARITY ON SE®CON MSG LINES 
DMD= ITS 30 AGHIOS 
MSP=  BITb ; MAENTENANG SECTOR PULSE 
MIND= Bite sMAINT 
MCLK= TB ;MAIN 
MERD= BITS ;M CA INTENANCE ENCODED READ DATA 
MEWD=  BITIO ‘MAINTENANCE ENCODED WRITE DATA 


SEQ 0027 








-JAN-78 12: SEQ o028 
CSREHE Phil e oe Sn a ee SURI APERANCE REGISTER t af? DEF TATION (RKMR1: 22) 

1398 PCA= —s-BIT11 ; PRE SBrpENSaTION oP pvanc | 
E | GPE 2c 
1401 2 

1402 ROGATE= BIT1S 

| fps SBTTL DEFINITION GF DRIVE snes BYTE 00 MSG A (RKMR2:34) - 

| ddpe D.DRA= BITS ;DRIVE AVAILABLE 
109 nyt D.vV= BIT6 ; VOLUME a 
1909 nite B: BROY= Bite iDRIVE TYEE (O=RKO,1 = RKO7) 
mp alae ee ie ae 

f : tWRITE LOCK 
ec AE “WRL= BIT1I ; 
1413 010000 D:SPIN= BIT12 ‘SPINDLE ON 
“PIP 3 ‘POSITI IN ss 

| iis BS 8050 B-Par= Bit PR Pde eta is Cuance = 

| iui? _SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MSG A (RKMR2:34) 
1418 

Ss TY ' G PRESENT 
eo ee: paste HT fee 
1421 1 " BRHM= ; 
1455 reiaiea B: Goat = fe Doom TRIER OcKE Eb ck 
; T ; 
eg Bae HH, ay 
. = H 
|e siap00 B:Coab= BITLe iN RDS, LOADING, 
14 a = $ 
1429 o4 D:UNLD= 81714 HEADS UNLOADING 
42 _SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MSG B (RKMR3:36) 
133 D.IDAE= BITS INVALID DISK ADDRESS ERROR: HEAD/CYL 
4 pS ue ° = 5 
13s o00400 Birt Te Bit? ; RIVE FAULT ow 
PAR T93 NERCON PARITY ERROR 
1338 ieetetee B-Eers BETio eae P fednerete™ 
1439 904000 foe ane WEEE K ERROR 
iqut edateets B: t= 13 ; _ TRACK 
1442 o40000 D:UNS= BIT14 ‘R/W UNSAF 
faa _SBTTL DEFINITION OF DRIVE STATUS BYTE 01 MSG B (RKMR3: 36) 
1445 
1446 D.SECT= BIT4 {SECTOR ERROR apt li 
14g 600100 Baar = BITE iHELTE Gar AND'ND TRANSISTIONS 
luca uate B: Hone Btte {MULTIPLE HEAD SELECT 
1481 001000 D-XERROR= BITS vprerT BADE ERROR 
tues agit O:PLO= BIT11 'PLO ERROR 
| 


[a 


EE  )Q\hf9 96. EEE 


EE 


CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE .P11 2S-JAN-78 12:00 


148s 


B2b000 
o40000 


000007 
077770 


pa 


007000 
100000 


MACY11 30A( 1052) 


2S-JAN-78 12:08 PAGE 29 SEQ 0029 


DEFINITION OF DRIVE STATUS BYTE O1 MSG B (RKMR3: 36) 


-NMOV= 
-LIMD= 
D.SUNS= 


. SBTTL 


M.PAR= 


8 Tl ; SEEK_AND_NO_ MOTION 
Tl ;LIMIT DETECT ON SEEK 
BIT14 ;SERVO UNSAFE 


COMMON MASKS AND OTHER BITS: MSG A (RKMR2: 34) 


7 ;ODRIVE CODE, ALL BYTES 
77770 ; ;DRIVE SERIAL #, BYTE 11 


COMMON MASKS AND OTHER BITS: MSG B (RKMR3:36) 


Bsr i bie aaa 


BITIS iBARITY: DECODE aye A Ad BYTES 


5 torh UNIBUS RK& DR _PRT1 MACY11 ay A 2S-JAN-78 12:08 PAGE 30 SEQ 0030 


RGHE P11 25-JAN-78 12:00 COMMON MASKS AND OTHER BITS: MSG B ‘RKMR3:36) 
1470 4 
1474 .SBTTL TRAP CATCHER 
1473 oo0000 
1474 *ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT” 
1475 ? ¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
14276 sa : *LOCAT TON 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS” 
1478 000174 Op0n00 DISPREG: . 0 ; ; SOFTWARE DISPLAY REGISTER 
1479 000176 O00000 SUREG: 0 :: SOFTWARE TCH REGISTER 
1480 ‘ -SBTTL STARTING ADDRESS(ES) 
1481 000200 900137 007120 IH 4 @sSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
1463 000204 007014 iH BYTI6 ;BYPASS N-SQUARE TEST IN DEFAULT MODE 
1485 000220 000137 006774 ie PARSRT ; INPUT ALL PARAMETERS & START TESTING 
14a? 000230 ele 007034 iH BYT16A ;BYPASS N-SQUARE TEST IN PARAM MODE 
1469 000240 137 067744 He 0.0DT sENTER ODT11 
1491 000260 ogia7 007056 IMP MOTST Pa sEvehels ie T MODE ONLY 
1492 0002 .=270 ie 
1433 000270 000137 007076 Imp MDTSTA f eybase N-SQUARE TEST ALSO 
1495 .SBTTL ACT11 HOOKS 
1439 33 RKKSSEAAREAEEEKERERRERKEKRRARERARRKRARRRARRAARRARE RARER RARRAALAKE 
1498 ; HOOKS REQUIRED BY ACT11 
1498 ga74 svP = ;SAVE PC 
1501 000046 043019 SENQAD set LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
1503 o000S2 100000 “WORD 100000 32) oc .52 TO 100000 
1504 000274 ; =$SVPC a P 
1505 001000 251000. ae 
1209 .SBTTL AP TER BLOCK 
1508 az HHH HE HH EE RRR RRR R RR RRE RES 
1509 ; Oca 44 AS REQUIRED T 
1510 38 REGGE RLGGGERGG ERE RARER RRR RARER RRR RRR RRR RRR R RR REE REE 
tei3 eae Oe ETE TEN IL tO POINT TO START OF PROGRAM 
1et3 Co00et Oot 44 i NT T Aer I CT SS PNTR. 

= ee 

i2i¢ oo0044 697000 SAPTHOR 360 NT T 1 HERER LOCK ‘ 
1518 001009 =.$X ;:RE Lochr iH 
tat : ivenseniniaeresbinuessecacnacnocereeaeusnaaauaesaeaeanexseaes 
1518 t4ETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
1519 I TRTERFACE SPEC. 
i521 001000 SAPTHD: 
1520 991900 000000 SHIBTS: .WORD 3; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
1523 001002 001210 BOR: - WORD MAIL ; ;ADDRESS APT MAILBOX (BITS 0-15) 
i524 001004 000430 STSTM: WO 80. :RUN TIM OF LONGES 
1525 001006 001130 SPASTM: :WORD 600. ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


CZR6HEO UNIBUS 


RK& DOR_PRT1 MACY11 30A8(10S2) @S-JAN-78 12:08 PAGE 31 SEQ 0031 
CZR6HE.P11 es-J 


AN-78 12:00 APT PARAMETER BLOCK 
Se6 001010 001130 SUNITM: .WORD 600. ;; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
es0 00101e o0004e “WORD SETEND-SMAIL72 ;;LENGTH MAILBOX-ETABLE (WORDS) 
S 
-LIST MD 


SUSE LOOP x TO OMIT JSR PC, SUBCLR 


UU 


«MACRO LOOP A 
SCOP 1 
MOV 


29 
30 

31 

32 

33 

34 

3 

37 #STACK, SP ;RESTORE STK PTR 
539 IF 4 A 
540 SR PC, SUBCLR 
Bul ERROR 24 ;CERR AFTER SCLR 
543 . ENDC 
S44 “ENDM LOOP 

Sus 

2us : THIS MACRO FILLS EXPECTED MSG AD,80,A1,81,A2,B2 & B3 WITH STANDARD BITS SET 
548 : A=D.DSC AFTER ATTN OR O AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 
Bu3 : NOTE: A CAN BE ANY BIT COMBINATION DESIRED 
B51 .MACRO F.EAB A 
553 MOV #<A!D. SPIN!D. DRDY!D. VV!D.DRA>,E.AD ;EXPECTED MSG AD 
eed a0 | BO poKiD cant 8 ook: roa > £.Al EXPECTED Al 
556 MOV #1,.€.B1 — “;MSG_ IO eOR Es eBFED’ hse Bl . 
B57 CLR ae Reet ay xe . 
2e6 Y  aStE: Mee p POH E GTED Mec BS 
560 .ENDM F.EAB 


TQ "CEO FUSES, QETNEO5C, 00490, teens neag TESTED 
; USE G=T. T PUT INF: TNTS *CYLDIF’ 
; H T PUT INFOR INTO * . 
; I=T. T PUT INFO INTO *SECTOR’ & *HEADA’ 


wy 
ne 
iT) 
D 


geagannananunnnnnnnARnnnRnRROn nD DOOR DOMME 


567 ; 

568 : F= < ERROR DESCRIPTION> 

270 "MACRO CHECK A,C,D,E,F,G,H,I 

57. ISR PC, CHKMSG ; CHECK ,AL,81 
255 : GIAtT + SShsSBecTFtED AERE 
574 RROR A sMSG a0 ERROR F 

57S RROR C >MS RROR 

576 RROR p :MSG Al ERROR 

57 RROR ?MSG Bl ERROR 

578 .ENOM CHECK 

580 ; A=CYL DIFF/OFFSET ERROR # 

581 * B=CYL ADDR ERROR # 


CZR6HEO UNIBUS RK& DR PRT1 
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NO 
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MACY11 30A(10S2) 
APT 


PARAMETER BLOCK 
; C= <ERROR DESCRIPTION> 


2S-JAN-78 12:08 PAGE 32 


‘MACRO CWD2 A,B,C, ?0,7E 

Mov #2, RKMRI (RS) ;SELECT WORD 2 

TST YLOIF SEE IF nSG A2=0 

BEQ ‘BR IF YE 

RROR A ; SG pe NOT CLEARED C 

D ST CYLADD *SEE_IF MSG Be=0 

BEQ E *BR IF YES 
. ERROR 8 *MSG Be NOT CLEARED C 
-ENDM cCWD2 
.MACRO LPCHK 7A 

CLR SESCAPE 

i i PFLG 

IMP JSLPERR ;SW 9 WAS SET. 
Az IMP @SLPADR >SW 14 OR 8 WAS SET 
.MACR 4 

; ef Re eee REXT TESTS eee ee Set OR eS PEN EITHER IS SET 
: ; RETURN bebe I HERE PS NEL TMER 
anes aad Sid ITH SWR <7:0) APPLY 
SWRO (LOOP ON ERROR) TEST A=BRANCH POINT TO RECONDITION DRIVE 
et en oe B=JMP POINT TO RE-ENTER MAIN LINE 
; LPFG 
I #SWS, JSWR ;LOOP ON ERROR? 
A :YES, RECONDITION DRIVE 
:RETURN TO MAINLINE 


JMP 
-ENDM TSTSWS 


? USE DRCLR 
"MACRO DRCLR 


Pe, TSTATN 
Is4 


;DRIVES 

(RO ROY AFTER DRIVE CLEAR CMD 
;TEST FOR ATTN 

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


SEQ 0032 


CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE.P11 


ne 


TRIN ECE CECE CEE 
Ww 


Speer rage 
QO LU Gow Oe 


NNN 
Wwrr-O 


AH ABAD H 
Bwavoul 2 


Be 


ooo" 
Rew 


Seok 


se ee be ae be he ee be ae be he be bn be be be ee be bn be be be be be Be be Be pe ae fe Pw fe be be ae bs Pe be fs bn bs bs bo Bo be be pe 
0.000 
Ow 


COrrnro 


wo 
Ww 
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PARAMETER BLOCK 


-IF B 


E 0 
cnoc CHECK «273,265,274, 266, (AFTER DRIVE CLEAR CND>,T.A2,7.82,0 
.ENDM DRCLR ; 
?A=BLANK TO CHECK AO THRU B2 
R=NON BLANK TO OMIT CHECKING AO THRU 
=AON. Aen $5 SoH ae IN DRCLR 
NG NITION I D ON 24-OCT-77 


* MACRO 


-IF B 


- ENOM 


i 
nn 
2. ; 
z 


. ADD NEW L °F 
g- CALL C 
3: POD bb Ine chQtG HAND CODING FOR SUBSTITUTING ITEM 2 


A,D,?C, ?F 


FKeSeCRs) 


ney 
Z - ae ROVRESA £2 GET CONTR. RDY 
MOV re » RKMRI (RS) ;SELECT WORD 1 
JSR P 

IT 8D: Rize Hee 


OR ;RTZ NOT SET DURING RECAL CHO 
MOV Hes Np2 a TIMEOUT 
ERROR : GN HETER RECAL CMD 
F.EAB 
sibs eh oe oe ne .A2,7.82,7.83 

, 

fe Riso 
ERROR Bq RANCH the sPRROR : 
ORCLR D 
CALIB 


} IDAE IS CLEARED ONLY BY RECAL & DRIVE CLEAR 


* MACRO 


CIDAE 7A 
MOV #CCLR,RKCS1(RS) 


ee 


CZR6HEO UNIBUS RK& DR PRT1 
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ODOT EW O DO WRN Fae Ow vou 


NNNNNNNNNNNNNNNNNN NNN 
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1) 
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es ae Be ee te ee ae ee ae ee be a he bn be Be bs Be Bs bm ae ae ae se as ee ee ee Pe ne ee ne ne De ne ne Be ae se Bee es ee 
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wo 


MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 34 
APT PARAMETER BLOCK 


MOV SUNI 


T,RKCS2(RS) 
MOV #RECAL,HCS1 
JSR PC, DOCAC ;D0 RECAL_CMD & GET CONTR RDY 
ERROR 124 ?RDY NOT FOUND AFTER RECAL CMD 
DRCLR x 
ISR PC,GSTAT 
IT #0: IDAE , HMR ; SEE IF IDAE IS CLEARED 
EO A :BR IF YES 
ERROR 155 :IDAE NOT CLEARED AFTER RECAL CMD 
A: MOV @CCLR, RKCSI(RS) 
MOV Tl, TEMPe ;LOOK FOR ATTN FROM RECAL 
JSR PC, FATTI 
ERROR 5S ;NO ATTN AFTER RECAL CMD 
.ENDM  CIDAE 
t A=D.FWD/D.REV 
"MACRO SKRDY A 
MOV #SEEK,HCS1 
JSR P BSNS ;D0 SEEK CMD & GET CONTR READY 
ERROR 1a} ?NO ROY AFTER SEEK CMD 
nov 8<D.PIP!D. SPIN!D. VV!D.DRA> ,E.AO ;EXPECTED AO 
HOV #<ALD. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP> ,E.Al 
CHECK 203,204,20S,206,<DURING SEEK CMD>,T.A2,T.B2,0 
.ENDM SKRDY 
.MACRO SKATN 7A, 7B 
JSR PC,FATT2 ;FIND ATTN 
RROR 13e :NO ATTN AFTER SEEK CMD 
IT #CERR,HCS1 
PE ROR 210 ;CERR AFTER SEEK CMD 
A F.EAB 0.DSC 
CHECK 133 134,135, 136, (AFTER SEEK CMD>,T.A2,T.82,0 
Tor ¥LO 
ERROR 137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
B: DRCLR 
.ENDM SKATN 


QUICK START SPINDLE. 
"MACRO QKSRT A 
JSR PC, SUBCLR 


SEQ 0034 


CZR6HEO UNIBUS RK& DR _PRT1 MACY11 30A(1052) 2@5-JAN-78 12:08 PAGE 35 SEQ 0035 
CZR6EHE.P11l 2S-JAN-78 12:00 APT PARAMETER BLOCK : 


1750 ERROR 24 ;CERR AFTER SCLR 
175¢ MOV #SRTSPL,HCS1 
175 JSR PC, DocMD ;D0 START SPINDLE CMD & GET CONTR RDY 
1754 ERROR lel :RDY NOT FOUND AFTER ST SPIN CMD. 
1756 MOV TSOG, TEMP2 ;SETUP _ TIMEOUT 
1757 Jor PC,FATTI :FIND ATTH 
1758 ROR 6 :NO ATTN AFTER ST SPIN CMD. 
760 CLR UNLD 
761 wes 
768 TSTSW9 10$,2S 
76 . ENDC 
764 "ENDM QKSRT 
eee 
367 :QUICK SEEK. ENTER WITH CYL # IN RKOC 
368 "MACRO QKSEEK 7A 
771 MOV #SEEK,HCS1 
378 JSR PC, DOCMD ;D0 SEEK CMD & GET CONTR READY 
373 ERROR ial :NO RDY AFTER SEEK CMD. 
775 MOV TSO000, TEMP1 
776 JSR PC. FaTt2 ;FIND_ATTN 
777 ERROR :NO ATTN AFTER SEEK CMD 
778 BIT #CERR,HCS1 
77 Q 
780 ERROR 210 ;CERR AFTER SEEK CMD. 

A: JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 


-ENDM QKSEEK 


QUICK REPETITIVE SEEKS 
: A=INC/DEC CYL# 
; B=FINAL VALUE CYL# BEFORE EXITING 


-MACRO QKRPSK A,B,?C,7D 
JSR PC, SUBCLR 


se ee ee ee ae he ae ae Be ae ee ee en an ee ae be ee ee ae be ee he ae ae Be be be be be ee pe 


R2DR HSE ASR BSE ITNT ES 


ERROR 24 ;CERR AFTER SCRL 
C: mov TOCYL,RKDC(RS) ;CYLS 

C TOCYL,B ;LAST CYL_DONE? 

BE D ;BR_IF_YES 

OCYL {ELSE DO ANOTHER 

BR c 
D: JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 


CZR6HEO UNIBUS RKE DR _PRT1 


CZR6HE.P11 25-JAN-78 12:00 APT PARAMETER BLOCK 
1806 
1807 LPCHK 
1808 
1809 .ENDM  QKRPSK 
1810 
He 
181 i QUICK rae ieee SUBCLR & LPCHK 
i614 ; BRON COLANK TO BYPASS 
1816 *MACRO @KUNLD D 
181 R PC, SUBCLR 
1818 ZRROR 24’ 
821 MOV UNLOAD, HCS1 
B22 JSR PC, BNDOCHO 
823 ERR 11’ 
Jsk PC, TSTATN 
RROR le 
JSR PC, SUBCLR 
ERROR 24 


MOV T10, TEMP2 
JSR PC. FSPOK 


re 
Pilon suerte 
LPCHK ° 

- ENDC 

-ENDM @KUNLD 


FoRE SRR COR SOO NORE 


ee eb bb bb ee 


Bue RERHEAD/ <CFNT ! RHE AD? 

’ 
Bu "MACRO WRHDR A,C,?D 
a wey 
2 A Rare 
ese RROR o 
5 ie ee 
Bet Ope oC 
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SEQ 0036 


;CERR AFTER SCLR 

;00 UNLOAD CMD & GET CONTR READY 
;RDY NOT SET AFTER UNLOAD CMD. 
;NO ATTN AFTER UNLOAD CMD 


;CERR AFTER SCLR 
;SPEED NOT DOWN BY TIMEOUT 


;CERR AFTER SCLR 


A>,X TO OMIT CHECKING AO,B80,A1,B81 


MD_& GET CONTR RDY 


DATA XFER 
oer Hint TE HEADER CMD 


309 Dav x 
ter RESH 
AF 


sore SEITELLSNTE SVE E 





CZR6HEO UNIBUS RK& DR _PRT1 MACY11 ay vs Se -JAN-78 12:08 PAGE 37 SEQ 0037 
CZR6HE.P11 2S-JAN-78 12:00 T PARAMETER BLOCK 


1 F.EAB 
1 CHECK 977, 267,300,270, ‘AFTER WRITE HEADER CMD>,T.A2,T.B2,0 
1864 .ENDC 
1865 
1866 .ENDM WRHDR 
1867 
1868 + A=RDHEAD/<CFMT! RDHEAD> 
1870 : USE ROHDR <A>,X TO OMIT CHECKING AD,B0,A1,B1 
187¢ "MACRO RDHDR A,C,?D,7E 
ea MOV sRHTAB 
1875 MOV 8<A> Fae? 
1876 JSR PC, DATCMD ;D0 DATA XFER CMD & GET CONTR RDY 
1877 ERROR 17 ?NO RDY AFTER READ HEADER CMD 
1878 BIT #CERR,HCS1 
ee Hips irtaae Seat ent hue "Gr" FER 
Bee IMP sf'38 ; T BRIve 
Bey D: MOV ), (RO )# ;1°ST WORD FROM SILO TO RHTAB 
V Fk (F 2, (RO + ie 
: v + (RS )+ 33°RD WORD 
Be9 BIT #OLT, RKCS2(RS) 
ea vee estat 
i Ss ;DLT AFTER READ HEADER CMD 
TYPE MSG18 ;ABORTING BALANCE OF TESTS 

. MP $E0P ‘ABORT DRIVE 

IF ; EAB 

aoa CHECK 301,271,302,272,<AFTER READ HEADER CMD>,T.A2,T.B2,0 

.ENDM RDHDR 


i A=TOCYL/FRCYL 
;8=310 FOR TOCYL/311 FOR FRCYL 


-MACRO HDCHK3 A,B, ?C 


Pica hans sho 


RDHDR 
CMP RUTAB. we ; CHECK “O88 fe Sihe (CYL a) ONLY 
OR : CYL WORD HEADER ERROR 


-ENDM HDCHK3 


Os hb bb bb be ee 


OOWWDWWWW 
te ete eee 
NOW LSWY-O 
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MACY11 30A( 1052) 


APT PARAMETER BLOCK 


-MACRO RALLHD 


MOV 


A=TOCYL/FRCYL 


-MACRO HDTBL 


MOV 
MOV 
MOV 
JSR 


7A, 7B, ?C, 7D, 7E 
#RHTAB, RO 


#ROHEAD , HCS1 
DATCMD 


ange soon: 
msc1e 

$eoP 

RKDB(RS), (RO)+ 
RKDB(RS), (RO)+ 
RKDB(RS); (RO)+ 


SOL. T ARCERCNS) 


s oo 
gftgsi8 


RO, #RHTAB+132. 
PC, SORT 

SOE TT AB. RO 
SHOTAB, R1 
ete 
pOmb, ten 


202 
Bett 

NT, #66. 
D 
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{RS RV APTER READ HEABER EnD'™ "°Y 


;CERR AFTER READ HEADER CMD 
ABORTING BALANCE OF TESTS 
ABORT DRIVE 

4 5F WORD FROM SILO TO RHTAB 
;2’°ND WORD 

;3’RD WORD 

;SEE IF DATA LATE 


;DATA_ LATE ON READ HEADER 
s ABORT BAL GCE OF TESTS 


A 
sALL WORDS DONE? 

Bk Pond 

;SORT RHTAB INTO SRTTAB SO THAT IT 
;BEG WITH SECTOR O 

HOGG COUNT TABLE 

3;CALC HEADER TABLE 


ACTUAL WITH CALCULATED WORD 


3c 
ge IF Fone 
:READ HEADER MISMATCH 


;ALL_WORDS DONE? 
;BR IF NO 


, B=HEAD#, C = O FOR 22 SECTOR, 1 FOR 20 SECTOR 


A,B,C 


SEQ 0038 


——E 
Iii nn eT ae _ - 
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CZRbHEO UNIBUS RK& DR PRT1 MACY11 30A(1052) -JAN-78 12:08 PAGE 39 ' SEQ 0039 
8 12:00 APT PARAMETER BLOCK : 
.ENOM HDTBL 
’ 
‘USE FSECA F RDSEC, 22 FOR 22 SECTOR FORMAT 
;USE FSECA Feps9’ Reasee. FOR 20 SECTOR FORMAT. 
"MACRO FSECA A,B,C 
5 
*FIND SECTOR 0 INC TOR FORMAT. 
+ ERROR CAeceD if Rot FOUND Y TIMEOUT 
ms Nov s TSODB TEMP, «©» SSE YUP Timeout 
1S: ney P : tREAD SECTOR 
TST SECTOR +LOOK FOR SECTOR O 
isk efor 
BEQ ;BR IF SAME TWICE 
2s: DEC TEMP1 
BNE 1 ; TRY_AGAIN IF TIMEOUT NOT UP 
OV (SP)+, TEMP ;ELSE RESTORE TEMP1 
RTS P ;EX 
3S: MOV (SP)+, TEMP1 
AD #2, (SP) ;SKIP OVER ERROR 
. ENDM 


Oo 
BS 


sree 


USE FSECB FNS22,RDSEC,22 FOR 22 SECTOR FORMAT 
;USE FSECB FNS20,ReO0SEC,20 FOR 20 SECTOR FORMAT 


'MACRO FSECB A,B,C 


ND _NEXT SECTOR IN C SECTOR FORMAT 
OR FLAGGED IF NOT FOUND BY TIMEOUT 


Dre 
Dd 


| CZR6HEO UNIBUS RK& DR_PRT1 
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APT PARAMETER BLOCK 


A: MOV TEMP1,-(SP) ;SAVE_ TEMP 
MOV TS00, temP1 ; SETUP FIMEOUT 

1S: JSR PC.B’ :READ SECTOR 
CMP PSEC, SECTOR 
BEQ BR of’ 18 
JSR c,8 ; TRY READ DIFFERENT TWICE 
SNE PatC, SECTOR F DIFFERENT TWICE 

3S: DEC r MP1 iPod TRY AGAIN IF TIME LEFT 
ROY {3p )+, TEMP ;RESTORE TEMP 1 

2s: MOV (SP)+, TEMP ;RESTORE TEMP 1 
BOD #2, (SP) :SKIP OVER ERROR 
R PC 

. ENDM 

USE FSO22,FNS22,RDSEC FOR 22 SECTOR FORMAT 


SECTST 
USE.SECTST FS020,FNS20,Re0SEC FOR 20 SECTOR FORMAT 
LOWING 


NG MACRO DEFINTION IS CHANGED ON 24-OCT-77 
bcs NES FROM THE CODING 


= 
QD: 
oe 


E,F?A, 7B, ?C 
JSR PC.D sEIND SECTOR 0 
ERROR 142 ?SECTOR O NOT FOUND BY TIMEOUT 
CLR PSEC ; PREVIOUS SECTOR 
A: ISR PC.E jE IND NEXT SECTOR 
E Aig :DIFFERENT SECTOR NOT FOUND BY TIMEOUT 
AOD Sieg ae EXPECT! CTOR 
MOV oaF » PSEC :Uboare g PREY EP FR 
; JSR PCF RE 
: CMP SECTOR, PSEC 
; BEQ ;BR IF READ SAME TWICE 
; ISR C.F 
: CMP SECTOR, PSEC 
; BEQ B TRY 1 MORE TIME 
; ERROR 144 :MSG 83 ERROR, SECTOR REG UNSTABLE 
:MAY BE DURING SECTOR PULSE TIM 
6 CHP SECTOR, ESEC 
ERROR 14S ;MSG B3 ERROR BETWEEN SECTOR COUNTS 
C: DEC SECNT 
BNE A ;B8R IF SECTOR COUNT NOT DONE 


-ENDM SECTST 


:DET CT OUTER LIMIT: FCP1,FC,D.REV, OUTER 
{DETECT INNER LIMIT: LCMI°LC’D.FWD, INNER 


;THE FOLLOWING MACRO DEFINITION IS CHANGED ON 24-OCT-77 


conte —s RK& DR PRT1 MACY11 3081 ) -JAN-78 12:08 PAGE 41 
t PRRAmE FER BLOCK 


CZR6HE . P 25-JAN-78 12:00 
2068 31. ADD NEW LOCAL LABEL 
2069 22. DELET CHECK MACRO EAL ON LIMIT DETECT 
eh + dackS a ACIC CBU F 
7 ISR PC, SUBCLR ;SUBSYS CLEAR & aaet STATUS 
| 207s ERROR 24 ;CERR AFTER SCLR 
| 588 fhe Bretear ;BYPASS CHECKING FOR ANY CERR IN GSTAT1 
2078 INC :USED FOR VALID HALT 
80 MOV @PAT,RKMRI(RS) ;PARITY & WORD O 
i MOV A, RKOC(RS) 
| 28082 MOV SEEK ,HCS1 > ’ - 2 
5084 ERROR 18S BBY EROR Sckk wEfh) Bab PaRITY 
2085 JSR PC TSTATN 3TEST FOR A cK, ; ~ oe 
soe oe eer cc BROERHES a 
MOV < 
| 2089 Mov #<D. SPOK SPOK!D. cartio b DOOR! D.BRHM!D. o>. E. a 
Shap PAE CK fio® ift, 146,147, <AFTER SEEK WITH BAD PARITY>,0,0,0 
| e03e DRCLR 
2094 MOV B, RKDC(RS) 
| S8ee i SRERK HGS! ;D0 SEEK CMD & GET CONTR READY 
2097 ERROR 131 ?NO RDY AFTER SEEK CMD 
2098 MOV LR, RKCS1(RS) 
2039 JSR PC, GSTAT 
2100 JSR PC: FLIM ;FIND LIMIT DETECT 
e101 ERROR 160 SLIMIT DETECT NOT FOUND BEFORE TIMEOUT 
ab IT } peer 
105 OR ;DRIVE NOT UNLOADING AFTER LIMIT DETECT 
2106 IMP 30$ ;BYPASS REST OF TEST 
5188 FB BUST Fieo, RTOS GAR eas BUA 
sit? MOV $< UNL #6: Rev ab: 'D. CART!D.DOOR!D. BRHM!D.SSP>,E.Al 
e112 MOV 8<D. re D. NNO M n CRETER TECT> 
e118 : GuRCK felted ae Resende Be BS" al, a 
2116 ERROR 161 ;MAY RROR 
sil? Reon 18 ey ER Ee 
2119 NOP THE CAL 
e120 bre #0.LIMD,H.B1 SEE TE F ary BETECT ad SET IN Bl 
2lee YPE EM42 :OTHERWISE REPORT ERROR 
21e3 ERROR 164 
| 
| 


DOY 
os P 


CZR6HEO UNIBUS RK6 DR PRT1 MACY11 30A(10S2) 25-JAN-78 12: AGE 42 SEQ oo4e 
CZR6HE.P11 25-JAN-78 12:00 APT PARAMETER BLOCK 
2124 
3S: ISR PC, TSTATN 
ERROR ies ;NO ATTN AFTER D LIMIT DETECT 
CLR CERR *ALLOW CHECKING CERR IN GSTAT1 


ISR PC, SUBCLR SUBSYS CLR 
ERROR a es i CERR UBF TER SCLR 

R ENBH 7 
Ih on re T FOUND BEFORE TIMEOUT ~ 
Heabs HOY FOUND BEFORE TIMEOUT 
I 


236 
g 
ot 
a8 

tu 


JSR pC, PATTI :FIND ATIN 
2s: ew SATIN NOT FOUND BEFORE TIMEOUT 
a ;CLEAR FLAG 
, CHECK b3.04,65, 66, 87 END OF HEAD LOADING? ,T.A2,T.B2,0 
, MOV #2, RKMR (RS) ; S 
fee Ficaas"” eda Bleep rhe. 
grace = 650 TREPORT. ERROR 
14 
-ENDM = LIMIT 


ee a a ee ae ae a he ee be be be ee pe bee bw be Pe bn ee Be 


VEU SOR Oud NOU £ aio Oe VOU COS Oubes worn 


' ASCYL#, B=HEADS 

"MACRO HEADER A,B 
NEWTST <<WRITE & READ HEADERS CYL A AD B>>,1 
MOV #STACK, SP ORES Fone STk HER 


JSR PC, SUBCLR 


rurururorururorururururororurururorororororururorororuroruroruru frurororu rorurorurorurororuru fururu rurururoruru 


ee ee ee ee ee ee 


53 

es 

64 

65 ERROR 24 ;CERR AFTER SCLR 
4 INC BYPFMT ;SET BIT 14 8 15 IN HEADER 
3 MOV TAB, RKBACRS) ; R WORD TABLE 
70 MOV Su ORD COUNT. 

72 HOTBL Toeyt 40 

73 RKOG ERS ;CYL# 

74 WRHOR AD 

36 c Re SECNT ;SECTOR COUNT 

77 MOV #A,RKDC(RS) ;CYL # 

78 RALLHD 


CZR6HEO UNIBUS RK& DR _PRT1 
ZR6HE .P11 25-JAN-78 12:00 


rururururorururorururururururururururoru 


SESRRIGR LESS IERIE S 


PETERS 


fur 
oO 
N 


rururorororurofrurur 


3 


rururururururururory 
Lolo thaw ew Fuses 
WON U © WHO 


wre 


fur 
rr 


PORBPUPUFOrORD 
DONE 


MACY11 30A(10S2) 


5-JAN-78 


APT PARAMETER BLOCK 
CLR BYPFMT 
-ENOM HEADER 


12:08 PAGE 43 


SEQ 0043 


;ALLOW CORRECT FORMATTING 


SEEK TO MAJOR CYL: FC,FCP1, TEMP3, TEMP4Y,D.FWD,D.REV,ASL,MC,DEC,FC 
; SEEK 0 TO ALL CYL: FC’FCP1’ TEMP3, TEMP4:D.FWD.D.REV, INC.LC.DEC.FC 
‘SEEK 410 TO ALL CYL: LC, LCM1, TEMPY, TEMP3,D.REV,D.FWD,DEC,FC, INC,LC 
"MACRO SKOSC A,B,C,D,E,F,G,H,I,J 

MOV 8, ERCYL ;SETUP FROM CYL 

MOV B’TOCYL ;SETUP TO CYL 
1S: LOOP 

MOV #10S, SESCAPE 

MOV FRCYL, TEMPS ; SETUP 

MOV TOCYL, TEMP4 :CYL DIFF 

SUB B ;FOR 

MOV * CALDIF ;ERROR PRINTOUT 

MOV TOCYL,RKDC(RS) ;GO TO CYL # 
2s Rove 7 CAPE 

; HOV 1a eS8 TEMP! ;SETUP TIMEOUT 
CMP CYLADD, TOCYL 
Q 

BEROR 7 sCYL ADDR IN RKMR3 NOT=RKDC 
38: 

LOR SESCAPE 

MOV TOCYL, DC(RS) ;CYL 

HDCHK3 TOCYL;31 

LOOP 

MOV a1us SESCAPE 

MOV FRCYL,RKOC(RS) ;RETURN TO CYL # 

HOV RCYL, CCYL ‘CURRENT CYL FOR TRUERROR ROUTINE 
4S: MOV #16$, SESC 

MOV T50000, TEMPI ;SETUP TIMEOUT 

HP CYLADD, FRCYL 

ERROR 243 ;CYL ADDR IN RKMR3 NOT=RKDC 
Ss: LOOP 

CLR SESC 

Hoy CYL,RKDC(RS) ;CYL # 

CHK3 FRCYL;311 
CMP TOCYL,H ;ALL CYL DONE? 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 44 : SEQ 0044 
CZR6HE.P11 2S-JAN-78 12:00 APT PARAMETER BLOCK 


2236 BEQ $ ;BR_IF_YES 
G OCYL ‘ELSE DO ANOTHER 
2238 MP i$ 
seid RBS 
1 10$: STSWS 2s 
2e42 12$: TSTSWS 83,355 
cena ag: Ta Tews Beds 
seu¢ nae oc : 
2246 . 
2247 MACRO EOPGM 
2248 
22049 SCOPE 
2250 CLR SESC 
2251 MOV #1,STIMES 
22 MOV aSTACK, SP 
225, INC SDEVCT ;INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
2254 CMP DRIVS, SDEVCT :ARE ALL DRIVES PRESINT TESTED? 
2255 BEQ SEOP142 *BR IF YES 
2256 IMP NUDRV :IF NOT , TEST NEXT DRIVE PRESENT 
cee ENA’ ESRC 
2259 


conte, ee RK6 OR _PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 4S SEQ O04S 
CZR6HE . P 25-JAN-78 12:00 COMMON TAGS 


sere .SBTTL COMMON TAGS 
SPs ; jtosgngossstovavsenatoseres tan tite Latien 
sed tk THI TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Ss ; xUCED IN THE PROGRAM. 
-21100 
SCMTAG: ;;START OF COMMON TAGS 


i Gonrains E RFLAG 
T “too ITERAT e55 COUNT 


He 


ii Cont at ier ee 


L ke T 900" ae 


RESERVED--NOT TO BE USED 


= MODE INDICATOR 


Com, 
: $i iy TATUS REG pRonEse 


ut) 
a 
88888888888b8s8s 


8888 


S8888S8s88Ssssssssssss 


ee ee me Be be te Be me be a bb he Be Bs fn fe he Pe he he hb bb be Pe bb 


RReeS 


Se eit al ain ate 
9 


we 

444 
ow 

bp ee 


Ee 
ESRAR RRS BRST RR 


a 

| on 

Ee 
OOU- 

2 

+ 

m 


one 
<< 


Sete eeheh erence 
BNSF ERELERLVGS ENGRRENSRKEVGTucwor LOVSS 


ee ee ee bh bb ee 


5e 





Selene 


rei. f | Sea BB 
000377 LL: .ASCI ¢207>«377)<377) He: ot 
SQUES: .ASCI 33 TION 
SCRLF: a <8) 35 1g RETURN 
ASC NE 


D 
g jeieeenietastensataneessaennneebbeenennneecnecenenennecceeecnes 
‘éSTTL APT MAILBOX-ETABLE 


+ OG S636 26 OG 96-6 ae a6 6 He ae aE A ab ae ae aE a a a a a a aa aaa aE 
N 


ive 
1210 $MAIL: ;;APT_ MAILBOX 
001210 oo0000 SMSGTY: .WORD AMSGTY ;;MESS YPE CODE 


rururororurorurorurururururorun 


WWWWWWU 


eer era eT a 
Cu tcWweO 
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CZR6HE .P11 2S-JAN-78 12:00 APT MAILBOX-ETABLE 





le Sieh: HRB REIN fier Ghee 
fe + HOEVTEE eottee 
531 at, BS el ‘eee aa ao 
ers Bete vrs RENV “ 
Be bak Be ae tg 
337 i atts 1S-}}a6pu | vidcose0, 11720203, 11/40=04, 11745205 
ao i HE SERA T RE APF cocesso 
Be Bois4? «=o amt “BYTE BNavet Le p aie ng pace 
ST cece Loni: somo eons ges oe 


8 8 
22 


REM LAS BOOM. =2. oy be: » THIS WORD AND LOW OF “TYPE” ABOVE 


ce Ee 

a) Saar. 
co 

ADDS 

ne 


a 
j=] 
e 
; 


uy 


: 
8888888 


7 
a 0 bt er 






CONTR ees PTION WORD#1 


Cl 
re 


SRERES SNORT RER EN 





} IEEE BEEETES 5 





le ? ADDW7 ::; SCR STOR WORD 87 
aif Hanes " 
- MEX 
1314 Af io RKVEC: ; a AULT T CONTROL PER INTERRUPT VECTOR 
izle i BS p Fi DEF 


+ PSCLOCK ‘status REG 


g 
g 
22 
; 


ESREHE 


23 


: 


ya at at at at at at at a tt at a a 


BNO LU Ow 


Seer er tye 


OOBN 


73 
74 


DONOU SW 


ee eee 


0 _UNIBUS 
-Pll 





60136 
001386 
b01332 






Ree eee eee eee 
SELLE £ FSLLSLELLCE£L 


WOFLNS KEVSocw 





2ecSan78 12:00 


MACY11 (1 )_ 2@5-JAN-78 12:08 PAGE 47 
SBPT RATLBOX-E TABLE 


P $ 
BYPT16: 
MODTST: 


_—se 
° 


A444444 


Baa 


ai 


o00000 wry 7 
Bese 


nan 
= 
+ 

ze 

ee 


: 
: 
: O 
: 0 
: 
: 


tress ELS SEDO TUEEEE 
177546 ; “EL OEK BE RO Ue REE 

100 ;L-CLOCK INTERRUPT VECTOR 
104 ?P=CLOCK INTERRUPT VECTOR. 


133100 HENDRY Peed y OPTION CSR START ADOR 
;PC FOR ME ag ENBELE TRAP 
30 START, NO DEFAULT” 
2 START 


31 FOR OR 
it FOR 56 "Of START 
th Ae F BAF OUT 1ST PROGRAM TITLE 


Ms 


3F 


;TO CYL 

EET oT gt BDATY SAEROMG TEST 
>CALC YL b D_IN_N TEST 
sCYL DIFF, R ROM RKMR3 
;CYL ‘ IN 


de 


; ctfod® NOIEATE TIME IS UP 
Berra hones 
tEEC , RIGHT JUSTIFIED FROM RKMR3 
;SET_TO 0 nosis Sey TO SLPADR 
TURN TO SLPERR 


MEOUT CONSTANTS 


: NUMBER 
AE io Bact Fae" Bad ED alti 
ED F 


;SHIFTED FORMAT FOR FORMATTER ROUTINE 


SEQ 0047 


; CONTA THE POINTER TO THE VE FLAG 
3 ( 1VQ-BRIV?) THE DRIVE T be CHECKED NEXT. 


: fe he 
:50 F 
s 
: OR 60 TO COUNT TO 1 SEC 
OR ANY RUMBER TO COUNT OFF FRACTIONAL SECOND 


CZR6HEO UNIBUS RK6 DR PRT1 MACY11 a od a 





2S-JAN-78 12:08 PAGE 48 


SEQ 0048 


C2R6HE.P11 25-JAN-78 12:00 T MAILBOX-ETABLE 
5458 oo1444 TAO: O ALL O75 
e431 Go1uyG Beeees DATADI: S252 {0101 PATT 
evze O01 17 DATAL: 177777 FALL 1°S 
BE Solved So9000 HOM; «=o tHEADER RORD FROM RKDB 
Be BRN EGE PR, 8 PINT BFE BBR" 7 
oF BRIS BREE ra irl ln Pai gaa" 

: PaaS 

. 001466 000000 CHKFLG: 0 ;WORDS TO BE CHECKED 

4 1470 900102 HOTAB: .BLKW 66. HE 
sie Hiltas BIBS Brite. “Bee ip iy i ak 
5483 002304 000400 BSE22H: .BLKW 256. e 
ae 003304 oo0000 UNLD: 0 : 
A eel onneed vont ai ie oh ie 
ei8 —_ TT F HALT PENDING 
SEP v's eave tear TO BRING 
e463 HE CPU TO A VALID HAL 

5 903312 at o08 004 ATTN: BYTE apa SATN 0-7 RESP. 

LEVEN 
z I THE F HOLDING REGISTERS FOR THE RK611 REGISTERS 
73 THEY Sao S ORE TL OINY TS°REC’D FROM WRDY ROUTINE. 
’ 
ae eh: 8 HR pies 
Hues z f *HOLD RKWC 

cise Baas Hes 8 
2484 003342 000000 HDC: 0 





—_—— tr —— 


20D 


Bae eee eo BEEA & 


UNIBUS RK6& DR _PRT1 








8 


——————————— -_- —- —-- - 


Pll 2S-JAN-78 12:00 


MACY11 08 103) 2S-JAN 
1 MATLEOX-E TABLE 


0 
0 


12:08 PAGE 49 


; TEMPORARY STORAGE. 


THE FOLLOWING ARE HOLDING REGISTERS FOR MSG A (0-3) & MSG B (0-3) 


Bpmpores 
oo00000 


MMmMmMmmmery----- CET ETT TE IE:=-~- 
+ 


te ce 


‘Ba 


FOLLOWING ARE ’EXPECTED’ REGISTER FOR THE ABOVE 


THE FOLLOWING ARE IDENTITIES FOR DRIVE MSG WORDS TO BE TESTED 


; TEST MSG Ae IF SET 


ALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


;FLAG - SET N N 
;FLAG - SET 

3FL T poo opener ton 
3FL 1 Bas D BY PAPE R TAPE 
’ 


N 
THE NUMBER OF PRESENT 


+ 


THE Fue Be ee ee Teoten? INDICATE THAT A PARTICULAR DRIVE 


DRIVO: O 


;FLAG SET TO 1 WHEN ORIVE O PRESENT 


SEQ 0049 


ae 


BOX-E TABLE 


. O_UNIBUS_RK& DR_PRT MACY11 30Q(10S2) 25-JAN-78 12:08 PAGE SO 
ESReHE CPL i 26 Fanc7e 13:00 sOPt RAIL SEQ 0050 
DR s 





IV1l: ;FOR ORI 1 
BRIVS: TEOR DRIVE 3 
ie § ES Ba 
DRIVE: : :FOR rl é 
DRIV7: ;FOR 
LCLKF: 0 ;L-CLOCK FLAG PRESENT FLAG 
PCLKE: 5 i B-CLOCK FLAG PRESENT FLAG 
DOTIM: SE EITHER CLOCK PRESENT FOR TIMING TESTS. 
SIZFLG: O :SET IF DEFAULT DO SIZING IN TEST 1 


5th at eo RK6 DR _PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE S1 SEQ 0051 


25-JAN-78 12:00 ERROR POINTER TABLE 
2553 .SBTTL ERROR POINTER TABLE 
S555 j xTHIS TABLE CONTAINS THE INFORMATION FOR ie ERROR THAT CAN OCCUR. 
? fa. Brelion Oe te Tbaes BY est oll 4 mati , Ran THE te TA ate. IS PERTINENT. 
S222 ate ree Tt Rt fe uiGH ITER ais (SE Cc). 
5566 gach i EMe N THE CONTAINS 4 POINTERS E ERC INED AS FOLLOWS: 
1 - EM ;;POINTS TO THE ERROR MESSAGE 
2562 i OH HIOINTS T9 THE DATA HEADER 
eae 2 Br tt BS } 18 THE pare FORMAT 
ese? 003474 SERRTB 
;ERROR 1 
557i Bare BE295 EMe ;0R # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 
DT1 
003502 066744 DF 1 


;DETECTED MDS 


poasi4 957307 Ene ;DETECTED UFE 
O03S22 1 


os ERAN 
: 
a 
Fi 
g 
iY) 
RaEa 


poses! Rez3e9 , 4 ;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 


8 
é 
o 
S 


;DDT NOT SET IN MR2e 


"T 


oe 
Seg 


possuy P5745) , Bi ;OR NOT PRESENT BUT SPECIFIED BY OPERATOR 
OF 


0 ;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 


ee 
F 
E 


eee 


NOY 


-JAN-78 12:08 PAGE Se 


| 


SEQ 0052 


ERROR BOINTER TABLE 


MACY11 30A( 1052) 


;DRA & NED BOTH SET 


L 


> 

a 

< 

mo Fa) ra 

so 68 CS ¢ 

22g Be pa beaks 

Tro o Zz oO lw a ae 4 

45 zo S 5 - a= We = Qa We 
fe Ee = § Baad as 

oo. & ¢ >. 5 % % 
io ca 8 8 tet es Be ee & 
coe 2 32 6¢ & £ £& 8 8 & 
WS OFS 28.2 UES 288 Nene 88 Ae Eee FP 





sbbeeeeeee ee 


-Pll 2S-JAN-78 12:00 


(72 BBP8I4 


| ¢ O UNIBUS RK& OR PRT1 
CoRCHE 
| 


SASSY 
nd 


003724 

sce tiaras Beetrs 
067070 

se 

26 003734 115 

cet Bes eethe 

Seas 003742 066744 

2e68S 003744 060154 

cee as Becec 

2688 066744 

SEG 


R 
3 
3 


hh 
i 
a 
ae 


Ptatat 


sre 
oS 
ee 


cs ie 

55 % 
e705 

2706 

PLAN nae Oeea7e 
S503 Goals Oee7ad 
SFit 004014 7 
ul Re Eek 
Bat 

F7iE covey opues 
sole 004030 peeore 
$713 004032 066744 


MACY11 30A( 1052) 


;ERROR 26 
EMe3 


;ERROR 27 


z3 


Bae 


“Toes 
uw 


;ERROR 3 


m 
= 
o 


SF 
——— TY) 


; ERROR 


SgoeTEe 
see 


ee eee 


;ERROR 3 


+Arz 
@o 


;ERROR 3 


om =3o9o 
wo 


oO 
N+4Tz 


;ERROR 35 


S-JAN-78 
ERROR POINTER TABLE 





12:08 PAGE S3 


;MSG Be ERROR 
; IN UNLD 


;CERR SET 
;AFTER SCLR 


;RLS DID NOT SET CERR 
;SACK SET AFTER RLS SENT 


Se a eal 
;DRIVE TYPE SET IN MR2 
;DDT SET IN RKDS 

;OTYE SET IN RKER 


;DTYE NOT SET IN RKER 


;OTYE DID NOT SET CERR 





CZR6HEO UNIBUS RK 
CZR6HE.P11 


| @721 
723 


AREA RRA 
~BBBN 


“ 


PERE DA RRNA 


Boss Goe8 S292 Sees sees 3 


eee i rh ehh 


tu 
y 
o 


BEARER Oca c cit MRD nDnES RPETES EDD AARATS ARR NANA 


004034 
004036 


BoMoNe 


ob 


rarer 


NOTE WOR? NERF Nes nore RB 


OR PRT 


6 
25-JAN-78 12:00 


MACY11 30A(10S2) 


EM30 


;ERROR 3 

OF 
;ERROR 37 
;ERROR 4 


EM33 


; ERROR 


gn=oc9 


=O) ——a Ree 


; ERROR 


Ggoomigg 


<= 
m7 
a 


; ERROR 


atei 
tre 
Mee 


<£ 
me 
= 


teat | 
mMertn 


; ERROR 


£ 


; ERROR 


S29 
tae 
<= 


;ERROR 46 


;ERROR 47 


;ERROR SO 


2S-JAN-78 
ERROR POINTER TABLE 


12:08 PAGE S4 


;C-D PARITY ERROR SET IN MR3 
;D-C PARITY SET IN CSI 

;FAULT NOT SET IN MR3 

sC-D PARITY ERROR NOT SET IN MR3 
;D-C PARITY NOT SET IN CSI 
;DCPAR DID NOT SET CERR 


;CYL_ADDR’ IN NOT = RK 
;AFTER SEEK WITH BAD PAR 


OC 
ITY 
;CYL DIFF IN A2& NOT=RKDC 
;CYL ADDR IN RKMR3 NOT=RKDC 


;CYL DIFF IN RKMR2 NOT=CALDIF 


Set DIFFS Fes IN RKMR2 NOT CLEARED 
AFTER REC 


;CYL ADDR IN RKMR3 NOT CLEARED 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE SS SEQ 0055S 
CZR6EHE .P11 2S-JAN-78 12:00 ERROR POINTER TABLE 


DHL? ;AFTER RECAL COMD 
DF22 
seth ore 7 AD_ERROR 
preg i APTER RE ap DATA CMD 
ERROR 
. M 8 ;BO ERROR 
DT13 
ERROR sy 
' Eng ;HEAD DECODE IN B3 NOT CLEARED 
Hi ?AFTER RECAL CMD 
Bras 
;ERROR S4 ' 
EM4Y ;B3 HEAD DECODE INCORRECT ' 
DH16 
DT1S 
ERROR =i 
. M13 ;NO_ATTN 
DHI7 :AFTER RECAL CMD 
10 





;ERROR S6 
ENGM ;MSG B83 HEAD REG NOT CLEARED 
?IN UNLO 
ers 
ERR 
— Sem17 ;MSG AO ERROR 
DH9 :AFTER START SPINDLE CMD REC’D BY DRIVE 
pTi3 
; ERROR 
ie EM18 ;MSG BO ERROR 
Brig 
;ERROR 61 
—m19 ;MSG Al ERROR 
Ha 
: ERROR 
g EM20 ;MSG B1 ERROR 
s ERR 
004314 060007 a s M17 


004316 064250 DH10 ;AT END OF HEAD LOADING 


EOS 


AC10S2) @S-JAN-78 12:08 PAGE S6 
RROR P 


SEQ 0056 


INTER TABLE 


E 


MACY11 


DR_PRT1 
AN-78 12:00 


BUS ae 
-Pll es- 


CZR6HEO UNI 


Cc 


Pg 

e 2 = 

sid « ae - 

S23. “ee. 

tS - w & 

es 5 eS 

Pies cy «CS 

2 ir e 3 t 

KO Cm a? 

2 my = & ge OS 

i ta oS 

5 we ¢ .~ poe 

‘hr oY 

qu) = 7 = os 
SR SlNG SIR GING VS-8 Bow NIG SMG TING FIM Zon. SV 
5 BaaSyGdos ghar Gao SonSos nao SwmSos bess; ess nso sobaS 

S S S S 5 S S S S 


fs Gots Gots Gos Gok a ee Oe Oe en 
Hs Hs Hs Hs HEHE 


NRRARARR Seneae Bae bees 





FOS 
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ERROR POINTER TABLE 


SEQ 0057 


MACY11 30A( 1052) 


CZR6HEO UNIBUS RK& DR PRTI 
25-JAN-78 12:00 


CZR6EHE.P11 


f= 
Q 


"wee 

x z 

B38 ; 

or 

5 its 

S a “wm 
se z ba bas 
i=) ond e 
bed os = ms a 
wn > m o & 
- oO = a a 
z. e Wo @ e 
zs 7 “ite: ~ ~ 
Bz 5 oe < = 

ra. +z = 

a” = o~ ex e. 
— e W lu 
ss ee Sy Sg 
2= w Ga Sa 
am € ce f  Be 


UTR CNTR GUN S..., ROME ONG Ene gos w__, NITY STEN 
-GSSs8ba5sc5 sianeutsrianartebarsurs-ege S5sSoansceeSs—nass 


; ERROR 
;ERROR 1 
;ERROR 1 
RROR 1 
;ERROR 1 
;ERROR 1 
;ERROR 1 
ERROR 1 
;ERROR 107 
RROR 1 
RROR 1 











SEQ o0ss 


Gos 


MACY11 peacetime 12:08 PAGE SB 


spay. ST ch etl 


e 

YO 

x 

uJ 

iH 

oe 

it 4 

uJ > 

= - 

w — 

3 e.6 Cok 
Q rs uy 
E 2 s 3g & 

Fv) 2 [FY 
az =z at Lon) x 2 
3 eS -* .6— £228 £ 
s 4 >~O > uw =z oO 

m ) 56 > = a z 
[=] Qa = w 3 = 
. 24s soot 8 ££ Fs fF 
Wu la ly ud eu FT) la ll iW 
wm - ” su. Su. & s G 
qe @ é  —. . e Ceee Tiee eee 
ke | Th be RWwWMO @Dwm oO wn oOo 


ou 
St salt aa anes a a ceaaseceae SEASAS 


ERROR 1 
;ERROR 1 
;ERROR 1 
;ERROR 1 
;ERROR 1 

RROR 1 
; ERROR 
ERROR 1 
ERROR 1 
;ERROR 1 
;ERROR 1 
;ERROR 1 


a a 
PECL LL Toe 








eo eres = ee — a  - 


S88ssss 


= b= bb be be pe 


CZR6HEO UNIBUS RK& DR PRT1 
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$002 BBu>3e Beasts 
Bowra2 669076 


saegeeee 
338 
wee 
e 


a 
ae 
ie 

Le 





RARARAOS E3328? ae GREE BUN TERS 


MACY11 30A(10S2) 25-JAN-78 
ERROR POINTER TABLE 


; ERROR 


sii? 
1 


T 
a 
126 


5 
+ 

— 

Oo KO 


- 
RIPTRRIELES 
ATzuANHAT ze 
—- —— —— i 
N Oo Oo 


_ 
mu 


zW 


12:08 PAGE S39 


;NO ATTN 
;FROM SEEK WITH BAD PARITY 


;NO DRVS FOUND IN DEVICE MAP 


SEQ 0059 


;CYL yt hl IN RKMR2 NOT CLEARED 


;AFTER SC 


;CYL ADDR IN RKMR3 NOT CLEARED 
SAPTER SEEK CMD 

;NO ATTN 

;MSG AD ERROR 

;MSG BO ERROR 

;MSG Al ERROR 

;MSG B1 ERROR. 

;CYL DIFF/OFFSET IN A2 NOT CLEARED 


;CYL ADDR IN B2 NOT CLEARED 
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sae 
D051 
Bos 1 36 
DOS 1 
rest: 
DOS 144 
DOS 1 
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12:08 PAGE 60 


;20 SECTOR FORMAT NOT SET IN RKMR2 
;SECTOR O NOT FOUND WITHIN SG MS 
;DIFF SECTOR NOT FOUND WITHIN 3MS 


;MSG_83 ERROR 
SECT G UNSTABLE 


;BETWEEN SECTOR COUNTS 


;MSG Al ERROR 
;AFTER SEEK WITH BAD PARITY 


;MSG B1 ERROR 
;MSG Al ERROR 


;NO_RDY 
AP TER CLEAR CMD 


;0D0T NOT SET IN RKDS 


SEQ 0060 


JOS 


12:08 PAGE 61 


SEQ 0061 


)_ 2S-JAN-78 
OINTER TABLE 


MACY11 30A(10Se2 
ERROR P 
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HO0000 
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;ERROR 154 
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ERROR POINTER TABLE 


; ERROR 


; ERROR 





12:08 PAGE 62 


- 


;LOAD HEADS NOT FOUND 


‘FOTO ERROR 
;LIMIT DETECT ERROR ON PREVIOUS 


;NO_RDY 
;AFTER READ HEADER CMD 


ier teR READ H SET Ko LEARED 


TC 
READ HEADER CMD 
;OLT SET 
;CERR SET 

;CYL_D Fe NOT CL 
RT "ENO OF HEAD LOADING 
;CYL ADDR NOT CLEARED. 


SLB NOT READ BSE INFO 


tAPTER WRITE HEADER CMD 


;CERR SET 


SEQ 0062 


TEST 


SSRIS’ BSS RELE 


bes767 


134 


— 


Sees : 
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an 


£ 
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38 
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;ERROR 215 


;READ HEADER ERROR 


;MSG AD ERROR 
;DURING SEEK CMD 


;MSG BO ERROR 


;MSG Al ERROR 


;MSG B1 ERROR 


IN _RKMR3 INCORRECT 


sCYL ADDR 
;AFTER SEEK CMD 


;CERR SET 
;READ CYL O HEADERS ON CYL 1 
ERIE m ty, ane NOT = CALDIF 


SOURING RECAL CMD 


;MSG BO ERROR 


SEQ 0063 
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; ERROR 
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2S-JAN-78 
ERROR POINTER TABLE 


;MSG Al ERROR 


;READING CYL 1 HEADERS ON CYL 0 
| 

| | 

} 


12:08 PAGE 64 SEQ 0064 


;MSG B1 ERROR 


;CYL DIFF IN RKMR2@ NOT=CALDIF 


;CERR SET 
;AFTER RECAL CMD 


;MSG AD ERROR 
;MSG Al ERROR 
;CYL DIFF/OFFSET IN RKMRe@ NOT CLEARED 


;CYL ADDR IN RKMR3 INCORRECT 


: Y 
Ae TE READ DATA CMD 


;CERR SET 


;CANT READ BSE INFO 


-Pll 25-JAN-78 12:00 ERROR POINTER TABLE 


peegre Bit 
ae 206 Tl 
00577 14 


17 
; ERROR sy 


cenereo UNIBUS_RK6& DR PRT1 MACY11 30A(10S2) 25-JAN-78 
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WE 


;ERROR 232 
M. 


A. | 
am 
a mi 
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;ERROR 243 
EM36 


12:08 PAGE 65 SEQ O06S 


;ON SECT 10,12,14,16,18,20 


A ADDR_IN RKMR3 NOT=RKDC 
;AFTER SEEK CMD 


; CANNOT _READ BSE al 
;ON SECT 0,2,4,6, 


Te OM BYPse FORMAT & ALL R/W TESTS 


;UNEXP MEM PARITY TRAP 
; TEST #, TRAP PC 


;0SC_SET 
;AFTER DRIVE CLEAR CMD 


Eee RECA EMD ON SM 9 


;RKMR3 NOT = RKDC 
;AFTER SEEK WITH BAD PARITY 


;CYL DIFF IN RKMR2 INCORRECT 


;CYL ADDR IN RKMR3 INCORRECT 


+e eee ee 


BO6 
SRE OR PRT, MACY 3OR(10S2). 25-Jan-78 12:08 PAGE 66 
;AFTER SEEK CMD 


a. 
i 
335 






5 fat SBURING REGAL CMO 
tio 
1 sERROR 20513 ;NO_ATT 
ieee re iRPTER SEEK TO INVALID CYL 
i ; ERROR Pee 
o% ens ;IDAE NOT SET 


IO 





;FAULT NOT SET 


ONO Wwe 


bb bp 


+ 
‘ 7; 
a a ee ee 


MSE eeD KEES Aeee RMD 
Senaas 
Or Or 


ENZ ;PIP SET 
TY 
ERROR ae 
057762 : M16 ;DSC NOT SET 
S641 
M17 ;MSG AD ERROR 


do= 
: 


;MSG BO ERROR 


Pe 
—— phe 
£ 
58= 
\=] 
“~rz 
> Ce 
oo 


EM19 ;MSG Al ERROR 


yevremeurEeE EEE 
Err any i ee 
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We 
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;MSG Bl ERROR 
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533; 


006244 061040 capone “Prae ;CYL DIFF IN RKMR2 NOT=’CYL DIF’ 
S448 O06e4%6 065641 OH48 


—— 
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OT4 
OF6 


; ERROR 3 





12:08 PAGE 67 


;CYL ADDR IN RKMR3 NOT=RKDC 


tAFTER DRIVE ELEAR CMD 


DIFF_IN RKMR2 NOT=1 IN SEEK TO SELF 
R SEEK WITH BAD PARITY 


;CYL_ADOR NOT CLEARED 
;AFTER READ HEADER CMD 


;MSG B1 ERROR 


;AFTER WRITE HEADER CMD 


;AFTER READ HEADER CMD 
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bb 
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£ o 
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; ERROR 2pen0 


OT13 
20 
;ERROR 273 > 


2S-JAN-78 12:08 PAGE 68 
ERROR POINTER TABLE 


SEQ 0068 


;MSG_ AD ERROR 
;AFTER DRV CLR CMD 


;MSG Al ERROR 


;MSG_BO ERROR 
!AFTER RECAL CMD 


;MSG Bl ERROR 


;MSG AO ERROR 
;AFTER WRITE HEADER CMD 


;MSG Al ERROR 


;AFTER READ HEADER CMD 


;CYL_DIFF/OFFSET NOT CLEARED 
;AFTER WRITE HEADER CMD 


;CYL ADDR NOT CLEARED 


ZR6HEO UNIBUS RKE DR 
ZREHE . 


Pil 2S-JAN-78 Bie: :00 









MACY11 30A(10S2) 
ERROR POINTER TABLE 


SORT 
oF 
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a 
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-JAN-78 12:08 PAGE 69 


;SPIN NOT SET 
;AFTER START SPIN CMD. 


;RTZ_NOT SET 
;DURING RECAL CMD 


;READ HEADER ERROR 


;FORMAT NOT SET 
;AFTER WRITE HEADER CMD 


;AFTER READ HEADER CMD 


;WCE AT CYL 411,TRK 2,SEC 21 


;SPOK_NOT CLEARED 
;AFTER UNLD CMD 


;UNEXP ATT 
;AFTER START SPIN CMD 


;AFT SPIN CMD & FWD SET 


SEQ 0069 





CZR6HEO UNIBUS RK& OR PRT1 MACY11 30A(10S2) -JAN-78 12:08 PAGE 70 SEQ 0070 
CZR6HE.P11  2S-JAN-78 12:00 ERROR POINTER TABLE 
zig ERROR 380g 
3 eae - DH1e ;AT INNER LIMIT FROM ST SPIN CMD 
Fic 
a, 
freee fee DH13 ;FROM OUTER LIM TO CYL O DURING LOADING 
Ss ERROR 320.0 
Ta: : M19 ;MSG Al ERROR 
526 - 2 DHIG {AFT LD HEAD REG & SEEK 
ei a0 ERROR peo 
: 3E 520 ;MSG B1 ERROR. 
Ss, ROR 3p4 
ER 
38 006724 1471 - Ewe ;MSG A2 ERROR 
r ie a 
7 T14 
: - ERROR 3 
7 061504 ° eR 7 ;MSG B2 ERROR 
wae esses ah 
mB Bessie vnmon ott 
, ;CTO SET 
ae ache Ma i CNTLE WAITING FOR OR REC’D CONTR RDY. MSG ASB BAD 


gaeres pe3479 ae pe 
ECS 


; ERROR i 


Boe ree Besse eta. ;MDS SET 


werent RR 
RomnnODno nae sia tae ete 
9° 


ef 
eg 
#8 


c 0 UNIBUS RKE DR_PRT MACY11 (1 12:08 PAGE 71 
CSRenE. Pll 26 Fane78 13: :00 ROR BOIN R 7ThaU _ — 






3663 
3bb4 .SBTTL PROGRAM SETUP 
774 7 001336 PARSRT: MOV aye ;SET FLAG FOR 220 START 
i CLR erie. 
7 1 CLR 
3663 00701 BP peo eRT ;START PROGRAM 
BYT16: CLR PARAM 
V #1, 8YPTI6 ;SET FLAG TO BYPASS TEST 16 
CLR MOOTST 
BR PRGSRT 
BYTI6A: MOV #1, PARAM 
MOV #1’BYPT16 
576 CLR MObTST 
575 BR PRGSRT 
»€ MOTST: CLR 
a: CLR BYPTI6 
DE BR PROSR 
lal MOTSTA: CLR 
5E V #1,8YPT16 
SAE MOV #1. MODTST 
5 9C START Bre pRESRT CLEAR FOR 200 START 
3) * €6LR BYPTie : 
PRGSRT ct eey _— & INIT 
3244 * MOV #STACK SP ae NDOINT 
3 ney Brees ae ie oe 
3032 RTI Hey L INT TS 
3699 1S: JSR PC, STKINT ; SETUP KB VECTOR ADDR, PRIORITY 4 
700 ¥ ?&8 TURN ON KB INTERRUPT 
7 
708 ;### CPU PRIORITY LEVE NOW AT O #xx 
704 3 ated ANY DEVICE WHICH s ITS EH 
3708 3 aaa int aid ENABLE Bit WILL RUE 
e 3 ata RVIC HEE 
3708 ;CLOCK INTERRUPTS W HANGE CPU PRIORITY TO LE & (IN ’STS*) 
7 5 RADE con ENT fi NTERRUPTS WI CPU PR erty TO LEVEL S IN SSETINT") 
at SPSTHRNERAUBNECRTEL coatak GPU PhrOntry" 10" LeveL w-TSEE Aadve; 
3718 one *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
3714 -SYSMAC 'SETUP’ 
3715 .SBTTL INITIALIZE THE COMMON T 
3716 ;;CLEAR THE COMMON TAGS (SCMTAG) EST 
3717 007160 012706 001100 MOV #SCMTAG, R6 ;;FIRST LOCATION 10 BE CLEARED 
3718 007164 o0S026 CLR (R6)+ CLEAR MEMORY LOCATION 


HO6 
LETT oo RAE he en HE ME 7 sco core 


3719 por igs 022706 001140 eo ; ; DONE? 
3720 17e O01 





OOP BACK IF NO 
16h 01 mart P Fis Ass fe THE STACK POINTER 
, 012737 " ant @BIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
37 : Hoy ns) ee FOR ERROR ROUTINE 
1 MOV ° VECTOR FOR TRAP CALLS 
1 MOV cre ;Le 
356 | nov VEC R FAILURE VECTOR 
1 i MOV , SE 33 END-OF-PROGRAM COUNTER 
e 
ae: 


agentes 
RAPA NT 
5 


ee 


fea is 


MOV a ; SAVE 
4S. QBERRVEC ;; T 

Rov aook SOISPLAY hoa eS ae 

BNE 


lee: Sie ron te 
He vee 


NNN 


3744 aie is” nQGCURRED 
000403 BR BSS fad 
374 Bo73E8 012716 64S: nov #65S, (SP) ?:SET UP as Sal 
7 i 000176 1140 65S: MOV sPOINT TO SOFTWARE SWR 
ria eas i poet ee § Botine MOV a isPReG DISPLAY’ * 
12637 000004 66S: MOV + DRERAVES — ERROR VECTOR 
CLR 
4 Rie BBa5A8 001231 BITB : SPP TSIZE, SENVM bites Hie ita h size RAPT 
33 001232 001140 sae Say oe SuREG, SUR DON SHITCH: SU TCH cn 
1 007474 OO0004 MEMPAR: MOV ERRVEC xt TIMEOUT VECTOR 
§15335 000340 o00006 sPAPe ERRVEC+2 (° 
pores 012701 172100 MOV #MEMBAS ,R1 ;ADDR_OF NEM CSR 
li 3S: CLR (R1) :SEE IF CAN FERENCE 
3763 o07ube 1 it 1 MOV #1 (RI) :SET ENABLE BIT IF YES 
764 127 114 000114 MOV ier, MEMVEC  j ‘LOAD MEMORY CHECK VECTOR IF NO TIMEOUT 
ae po7ues 737 000340 000116 nov FE RCAV 
2 2 
3768 74 O02 1S: CMP (SP)+, (SP)+ ;ADJ ST ACK 
74 1 2s: ADD #2,R1 : TRY Y NEXT ose 
1 17214 Cc R1;@MEMBAS+4O ;SEE_IF TRIED ALL 
1 1360 BNE 35 ?BR IF NO 
772 00751 12737 O00006 000004 MOV #ERRVEC+2, ERRVEC’ ;RESTORE TRAP CATCHER 
3773 007516 005037 0o00006 CLR ERRVEC+2 


O06 
aioe PAGE 73 


Cc 0 UNTBUS _R RK&_DR_PRT MACY11 ( ) -JAN-78 
an Pil AN-78 12:00 SORT PBc ize tHE COMMON s58 GO7s 
904737 pus976 ISR PC, CLRFLG ;CLEAR DDUMP THRU SIZFLG 
ae poen35 1 CLR VCT 
00 005037 OO0l2ee CLR SUNIT 
FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 
oo0042 START1: TST 4 
Me 3116 eid be TITLE iORNUAL TYPE PROG ID 
37 Boab 000013 cHPS 4 #13 +13=LOADED BY XXDP 
903432 NC DDUMP SET RK MODE FLAG 
4 YPE ,MSGe PLAC PACK W/SCRATCH 8 DO<CR> 
HAL HAL 
ue IMP T 
a ie pools? Barees ROBES 
2 00344 : Pp ;SET ACT/APT/PTP DUMP MODE FLAG 
795 
ic CK LP T GIN INPUT DIALOGUE 
Be Pie rates A Rat CO 
SEPERATED BY ED <CR> 
3605 DRIVES TO BE TESTED: 1,2,4%<CR> 
3608 : at 7 001336 ote Ist PARAM - 220 
14 abe 04 ‘IMP A$, Bho St DEFAULT & SIZE THE BUSS 
466 1S: TYPE MS ae BE TESTED 
126 JSR Pc 
7 36 Jere ans ga 
7640 5546 + 9PE MSG Gr en VECTOR 
3810 7 3364 JSR pc GINT :GET Int LESOR 
1 SO BR sts 
= 
14 
1 neha aa BY x OR OTHER. T FLAGS & NO INPUT DIALOGUE. 
3618 pat UL At PARARE TE eRe” TEST ONLY THOSE DRIVES THAT ARE READY 
33g 
76 3727 000041 000013 ns CMPBss«4#1, #13 ;13=LOADED BY XXDP 
7 003434 sit CH ;SET RKOG CHAIN MODE FLAG 
116 JSR PC CATITLE 
104401 il TYPE ;DRO NOT TSTD 
3ese 003436 1S: NC fa ;SET ACT AUTO FLAG. 
geet GOOPTS lara? aces splat S™ By TDMGUARSE SBEPAULT VALUE 
3830 5248 OiS335 43416 JSR ete ft Ne 


CZR6HEO UNIBUS oe OR orth 
2S-JAN-78 Le:00 


CZR6HE .P11 


Ke = Fl 


= 
3864 010106 
see GLI 
Se? 





_ 005237 


022626 
005037 
104401 


003472 





MACY11 30A(10Se 


oooo04 


( 
INIT 


STs: 


18: 


TAL 


ize"THe 


TYPE 


SIZFLG 


UNLD 
Bi 


HP 
SESCAPE 
MEY 

1vQ, DRVPTR 

I 
#1$, ERRVEC 
aks 
mai RO 
#25, ERRVEC 
aPKs 


PCLKF 
~ ate ten 


(SP)+, (SP)+ 
ERRVEC 


paver AO 
#CLOCK, (RO)+ 
PR6, (RO) 
TST1 


(gP)+, (SP)+ 


(SP)+, (SP)+ 
OTIM 


D 
»MSG13 


-JAN-78 12:08 PAGE 74 
COMMON TAGS 


;D0 “SIZE THE BUSS” TEST 
; INITIALIZE FLAGS 

tUBR VALID PROGRAM HALTS 
;CLR RKO& IND. FLAG 


:NO. OF DRVS 
; NT DRV R TEST 
SET TIME OU OR VECTOR 
Batali SPA dae 

;VE ApBR 

Sead” SPH REM 

i OEETOR ApBR 

;L-CLOCK NOT THERE, CLEAR STACK 


s SEE F P= K THERE 
; NT FLAG 

; VECTOR 

; INDICATES TIMING TESTS CAN BE DONE 
; SERVICE INE FOR CLOCKS 

;;GO TO NEXT TEST 


;P-CLOCK NOT THERE, CLEAR STACK 


;NE 
;TI 
;AL 


THER CLOCK THERE, CLEAR STACK 
ING TESTS CANNOT BE DONE. 


I 
M 
L TIMING TESTS BYPASSED 


SEQ 0074 





CZR6HEO UNIBUS RK6 DR PRT1 MACY11 30A( 1052) -JAN- 2: PAGE 75 SEQ 0075 
CZR6HE.P11 25-JAN-78 12:00 BASIC CONTROLLER teste OF FING & SETUP 
g .SBTTL BASIC CONTROLLER TESTS, SIZING 8&8 SETUP 
7 sz SEEKER RELERKAERRERERASRRRAERERRALERAREREAERAARKRRRRRRRRRRRRRREEE 
g :kTEST 1 REFERENCE ALL CONTROLLER REGISTERS 
74 ; gener gs oe rely wet THE TROLLER REGISTERS 
1 i NABILITY ACCESSED WILL 
;# MSG. ANY 
* a ina Me phi T TING ALL OTHER 
i FE cte JUMPI paAgs® 
ae PoeT TT TTT TT TT TT TTT tT TT ttt Tt tit ttt titi tttititittttttttiittty 
“5 O1Biee 001174 teri: Rov . TIMES RATION 
El: B10! MOV sStacK, SP ‘RESTORE TK PTR 
ee 10134 MOV #PRO,-(SP) ;RESET TO PRIORITY 0 
886 010140 MOV #5$,-(SP) :& MAKE IT LSI COMPATABLE 
BE 1o14s RTI 
ess 010146 Ss: 
390 t 146 ooco04 MOV RRVEC ;SETUP TIMOUT ERROR VECTOR 
e¢ Vv Re ;SETUP_INDEX 
2C 101 TST CSitrS) ?REFERENCE ALL THE 
3¢ : : TST RKCS2(RS) :CONTROLLER REGISTERS 
8° TST RKWC (RS) 
i fal) TST (RS) 
TST (RS) 
1 TST RKDS(RS) ;T Gee TH S. SECTION 
10210 TST (RS) ihe Ren OLLER 
10214 TST RK (RS) tne 
1 TST RKDC(RS) ie PROCE ED 
1 TST RKDB(RS) UN ns, Ss ORUMEDIED. 
1 TST RKMR1 CRS) 
\ TST RKMRe (RS) 
TST (RS) 
i TST BKE (RS) 
TST RKECPT (RS) 
1 oo0004 MOV #BADTMO,ERRVEC ;SETUP TIMEOUT HANDLER 
1 000006 HOV SPR? , ERRVEC+2 
i 1 ;;GO TO NEXT TEST 
010272 1S: CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 
o10e74 ERROR 7 ?ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 
10276 042722 IMP SEOP1 





Ts eammmean ; a ay “7 * jemmmaamntcen remem aracemiaaiecencaatai 
Te SIZE THE BUSS 


SATE 
xe 
i rats yERT ty ENTERED ae pare SELECTION At ke ae 
;* 
;% 


MODE . 
VERY DRIVE FROM O THRU 7 13 ROORE BSED. 
ONTROLLER ERROR (CERR) IS EXAMINED IF NOT SET, THE 


EERE RRR EY 


WO NOU CW 


38 
SS 


a 


§ 


LO 
SES PG EETT og MCP BBUONEY, EE aa fo gtesOm PaMe 78 sca cor 


3% WILL TESTED AS AN RK F SET, THE PROGRAM WILL BYPASS 
3350 5% OEey ENG ee Y iF eee ERROR Bhs’ a RESULT OF 
1 a MDS OR ING SET; OR BOTH NED & DRA RESET IN- 
28 :# DICATI HE PORT I5 ACCESSED. 
# F CERR DUE TO DTYE, THE DRIVE WILL BE TESTED AS AN RKO7. 
1 , TT an - "> (ereeuaspaarmmamancsapumeaumeimmmmenncmmnE te 
sey ery fiers, omen ome ewes TE 
ee . 
ae piste B4e298 Bei INC BYPCERR ie Nore test CERR IN ’FRDY’ 
g10322 132737 000200 001231 ~~ BITB #8177, SENVM ;SEE IF use APT SELECTED DRIVES 
no nye ented 0104S2 138 ; sf DO NORM SIZING OR VERIFY 
1 010336 104401 055732 14S: TYPE MSG10 ;WILL TEST DRIVES 
333 fe 003442 cLR ORIVS ;# OF DRIVES PRESENT 
1 1 p03444 v RORIVO R1 : 
se 10354 013702 O0i266 MOV SDEVM, R2 :APT DEVICE MAP 
Feat 910360 70 000001 1SS: IT TO,R2 i SEE IF pRV IN DEVICE MAP 
1 003442 NC Ivs *ELSE I T 
3950 bigaze ae Ne (BA) if T Deve BRESENT FLAG 
1 O61 104401 001205 Y SCRLF 
3328 010400 010046 MOV RO, -(SP) Hie Bat "aggre: 
3gee BiBuog ONGGF oe $F GORE EES OC 1M ASCII 
.BYT +? TYPE IGIT(S) 
37 01040S 000 BYTE b + SUPPRESS LEADING ZEROS 
010 FA 005721 16S: TST cRi)+ ADV POINTER TO NEXT FLAG 
bigule 2 000010 ane a8 ,RO fete B feSTED? 
1041 I BEQ 178 *BR I 
3963 O1 006002 ROR R2 SEL T NEXT BIT OFF DEVICE MAP 
4 Biouss 000756 iss :8 fhy cath 
o10NeH $737 003442 17S: TST ORIVS ;SEE IF MORE DRIVES PRESENT 
0:32 0001 011126 IMP VERIFY ;ELSE EXIT TEST & SETUP FOR RKO7’S 
1 18S: ERROR 126 ;NO_ DRIVES FOUND IN SDEVM 
7 1 HALT : TWP CORRECTLY & PRESS *CONTINUE’ 
337 1 1 907730 IMP STs : RY N 
1 137 Olli 20S: IMP VERIFY :D0 NOT SIZE, GO TO NEXT TEST 
74 Ol 1 0 ooo010 12S: MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
7 i 33 dad ees iH % BRO, TEMP sFIND RDY 
39 104 104120 ERROR 120 *RDY NOT SET BY END OF SCLR 
are Bibuce Barres o0me a ie Pad 
3980 bioebs 104401 055732 TYPE »MSG10 :WILL TEST DRIVES 


CZR6HEO UNIBUS RK& DR PRT1 
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Dae be be Bae 0 fae fn Peme bs ee Pe Pn hme bo be fae Pah pae bh 


ete caeererryaeayas Ceri 
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SSSES55 
NO ULLWTU 


So500 
Reo 


ie 
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oo344e 
003444 


003350 003360 
aang" 3360 
003434 
003442 


BB bae 


044236 
606010 
o0344e 


007730 
000040 003336 


MACY11 30A( 1052) 
Te 


1S: 


4S: 


3S: 


es: 


2S-JAN-78 12:08 PAGE 77 
SIZE THE BUSS 


DORIVS 
#ORIVO,P1 


aSTACK, SP 


sts 
#OTYE,HER 


-# 
:ORV ADD 
DRV FLAG 


;RESTORE STK PTR 
;SUBSYS CLEAR 


co 

msec 
ele 
PC nt 


;F IND RDY 


;NO RDY AFTER SELECT DR. CMD 


®;SEE IF XXDP CHAIN MODE 
;INC DRIVE COUNT 
iABo Cot tr Set 
55 SAVE RO - TYPEOUT 
3360 vPE-“OCTAL ASCII 


HDPE ab ICEL. zeros 


;TYPE B 
’ 


YPASS OR # 
SELECTED DR # DOES NOT MATCH RKMR2 DR # 
;ADVANCE PTR TO NEXT DR. FLAG 
*CLEAR RKO7 FLAG FOR NEXT DRIVE 


;MORE LEFT. 


;NO_ DRIVES FOUND 
;SETUP CORRECTLY 
3&8 PRESS *CONT’ 


OF DRIVES PRESENT 
Vv R 


FIND ROY 
eer e tT The ORI vE 
Ge? SFAris **0? 


;D0 DELAY TO CATCH MDS 


SEG 0077 


ae AO it nbn Bas 


ted 


CZR6EHEO UNIBUS Pe Bs 
' CZREHE.P11 aoe” 13: oo SI 
19768 % BEG 
t 001170 ny 
4 it eaytaiy 003324 135: BIT 
uy 2 ll eid ooo4o00 003324 Bye 
See ll AS BNE 
ii 000001 003334 BIT 
4O4e ll 9 3 010000 003324 Bry 
1l 14 EQ 
4048 il 0007 BR 
deed 11 7 044236 6S: JSR 
&y ll RROR 
4 11 
uy ll 7 044236 78: JSR 
Se gues peat 
08? ll 720 BR 
011064 032737 O10000 003324 8S: BIT 
4 ete 1676 #8 
uy 11074 4 01 056153 
Oe 011100 10046 MOV 
y 11102 104403 TYPO 
4 1113 * roe 
wee BILIGS obs ieee 
m7 4 11110 BR 
upeS 1lllé@ 004737 oO44236 9S: JSR 
4070 11128 4 RROR 
4071 1ll 0701 R 
ape: Olllee COO137 011520 10S: JMP 
4074 011126 $ 
Uese anaetiel 
4076 
W078 kT 
4078 3 
4081 + 
4082 7% 
4083 5% 
4084 3% 
408S 3% 
40 3% 
408 :* 
4089 3% 
4030 ;* 
91 


40 
4092 011126 OO0004 


+673: 


13$ 
8CDT, STMP4 


MACY11 _* 1 te goss :08 PAGE 78 


;ADD COT 
;TRY AGAIN 


; TYPE BYP OR & 
;MDS DETECTED. 


;UFE DETECTED 


; ORV 


BS 3 A es TYPEOUT 
--OCTAL ASCII 


: Brindle. ZEROS 


pe 


;NO DRA & NO NED = 


p sueedqenensnnnroneseseszesessdesseetennesgeseqnesnnnnsnnenene 
3 VERIFY IONS 


OPERATOR DRIVE SELECT 


Wjue 


Xn tuefo'b ori 


OTHER PORT SELECTED 


“TS ADDRESSED 8 NOT 
a al 


ve WILL BE TESTED AS AN RKO7. 
[PERLE VET Shes as we aoe 


SEQ 0078 


BO? 


MACYIL 3961052) FTFY OPERATOR DRIVE SELECTIONS 


SEQ 0079 


| GGRere- it e2s-dan-78 12:00 


2 
ec 
a 
cw 
3 & 
w ¥ 
Be » © 
2 5 Se 
2 ak g 5 
w oO ~w 
: s*° 35 
‘ — SS ir we 
ag ge 3 2 Pr = Ti in og 
oS F 8 8 § 8 ree ag “as 
Are! @r Ho 3 | SS $e 
reo & - woe & u x< ¥ 
J > —- > > K- Ook wz mS 
a: 4 be Sa a wi S-Se “2 aw ze 8 
22 EE a ee | 
wes # Geka ete 3 Saad Eo Ee es RE 
~7~ 
a 
om ui 
4 —_—— = uel 
w st a oe a os = xo ww w 
Behe pent: =... GE aes 
- S - + w ih Tx 
“oe Pek Ae An Eta- > ats gu 
S205 Eno mOnOMESomeeE Zoran 5 Zuace onde Eususy 


See 
SBRESBUERELeaceys 


MOV 
MOV 
LR 
MOV 
SCOP1 
MOV 


oO 


| BME HT 
8 3 3 s 888 
So i 8 B28 Saeuegey : iS ee 8 8288s 
2 + AA -_ om > a -e 

é oRe go - & GEESE 





sates Nese latets 
UNE MUESEDA GARE BOCES 


EA tt dd ad dd ad dd oad ad Od oh ed edad dda dete 


9000000 e000 200000 


ela falatal oe ein tat iithy oly lay ha a eae ee oe eg 


sca henbonhonhenhenhenhenhenhonhenhonhenhenhoahon hon hen hon henhentonhonhonhonboxhonhonbonhonton bon bon hoe honhor box hon hon hon hus ton ton tun tun ton boston tos] 
rrzrszzzgz77TT TTF TF FF 7737777797997 FFI 7T9TIF ITTF IFIT7TIIIIIFF 





CZR6HEO UNIBUS RK& DR PRT1 


= 


ae Se 


ue Re Biase 


4 
4y 

4 

41s? 

iy ae 
4 i 

4 

4 11470 
4 11474 
4 11476 
Siee gute 
4 11 

4 911510 
4 011514 
4 011516 
4 

4 

4 

4 

4 

4 

4 

4 

4 

4 011520 
4 011524 
4 

4 

4 

4 

4 

=) 


ee ae a be be ee Be be bh be be ee Be be > be fe 


BOER LOO HO BEV food Owes Vor Lose eee Wen F eohOr 


4 
4 

4 

, 11 

wigs Blisse 
4 11540 
4 11544 
: 11552 
4200 011560 
4 it 4 
4 1 
420 115 
4204 


81484 


o 010300 003324 


005037 
005037 


CZR6HE .P11 25-JAN-78 12:00 
010000 003324 


044236 
044236 
044236 


044236 


001462 
001170 


000001 


003442 


05627 4 
04272 





CO? 


MACY11 a 10S2) 2S-JAN-78 


001174 


Io1 102 


12:08 PAGE 80 
VERIFY OPERATOR DRIVE SELECTIONS 
git #NED, HCS2 


as 
BR 10$ 
8S: Bey D,HCcS2 
10S: q +h ) 
BEQ ug 
ERR heated ; TYPE BYPASS DRIVES 
12S 
6S: JSR PC, BYP ; TYPE BYPASS DRIVES 
ERROR 2 :MDS DETECTED 
BR 12s 
7$: JSR PC, BYP 
anon 3 ;UFE DETECTED 
les 
9S: JSR PC, BYP 
or tes ;DRA & NED RESET - OTHER PORT SELECTED 


;7H o PART prt et, THE PROGRAM WILL BE REPEATED FOR EACH 
; ORIVE T 

5 SUNET. “ee THE ADDRESS OF THE DRIVE CURRENTLY 
; UNDER 


HERE FROM LAST TEST 


;ENTER LAST, 
Tea eee i FLAG. 


NUDRV: CLR BYPCERR 


CLR STMPY 
sippegeguasauscegceoeeer utah eee 
j ATEST 4 FIND NEXT DRIVE TO BE TESTED 
is THIS TEST FINDS T THE NEXT ig eK & PUTS THAT = on 
5H THROUGHOUT The FOL SUING ne Tests ; ve TESTED 15 : 
is Ss Is SUN rR 
Ea 4 Seppe gerapgemmenmappeeerenccen: 

“MOV « STINES TERATION 
v esti a tao TORE STK PTR 

MOV TNet ERAN 

TST DRIVS sANY DRIVES PRESENT? 

ee Pie DRIVES | 

YPE MSG19 sALL S. TESTED 

IMP $E0P1 NO, 


DO? 


CZR6HEO UNIBUS RK& OR PRTI MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 81 
CZR6HE.P11 25-JAN-78 12:00 T4 FIND NEXT DRIVE TO BE TESTED 
420S 011576 013701 001346 4S: MOV DRVPTR, R1 ;ADOR_ OF NEXT DRIVE FLAG 
450? Bt ioe Brae 001220 ere ager 31S FI IVE BEING CHECKED 
4 t 001222 1S: Re IT HTS, Bae ROOR To NEXT DRIVE 
11614 2s: TST (R1) ioe SP veprcaen 
tf 8tt POG TR PET Se IRB next abe 
421 il BR is 
ae3 CHS BIS cosoee ae OS Mee aes é oro 
‘ ba 001222 IT : st Is, IT DRIVE 0? 
“BS BLES BRuGeF a ab" fo next onIvE Present 
4 i 11642 BR is 
4 Te 258 002000 3s BIT SCDT, (R1)+ SEE IF aDRIVE UNDER TEST IS RKO7 
Wee il 17 001170 MOV 8COT, STMP4 i 
4 it 1 346 6S MOV Ri DRYPTR iRteR a AGEXT OR FLAG 
4 1 1 TYPE mS 1s 
11 1 1222 MOV SUNIT,RO 
4226 011674 010046 MOV RO, -(5P) pany RO FOR TYPEOUT 
§ 811508 104403 TYPOS te0 1 T¥PE--OCTAL ASCII 
il 1 ‘BYT ii aN Pe feastr NG ZEROS 


TST TMP4 ;SEE_IF RKO7 UNDER TEST 


VERZERLEBSVS 
3 
z 
a 





O11 g 
ae 012052 ROO $231,L0m1 BRE Lone RKO& PARAMETERS 
11716 012054 MOV #632,LC 
11 012056 mov : ,LcPl ; 
f BH Te a a vn 

ky be V % 
4 611766 Bispee #160017, MASK1 
4 ll BR TSTS ;;GOTO NEXT TEST 
4 7S: Vv #14 M sLOAD RKO7 PARAMETERS 
Sa teas pies nya 
4249 01201 012070 #0.00T,£.0DT 
4250 Ol 1 MOV 1000, fc 
4 : 1 MOV #2000, MC 
4 12064 MOV 1 nak 

1e04e 12066 MOV #140017, MASK1 
4254 O1 BR TS ;;GOTO NEXT TEST 
4 DO000K LCML: 3LC~ 
ae i Hat on 

=UDE ; 

4 Pt 
age {Spee “i. & tMAY EYE 4+ 1 SHIFT 





r tn cS eS ae 
SEE = KESE CELE EE EEE LE P 


ek CO AER ae Hl arn cose 





Cc UNIBUS RK& DR PRT1 | 
CoREHE PIt 25-JAN-78 12:00 

4 12064 MASK: 0 

uy 1 prea? 0 

ices Ot E.001: sEXPECTED DRIVE TYPE TO E.A0 

a 15075 fbi: 1 tEC+ 

y $3 TITTTT TTT TT TTT TTT TTT TT Titi ti iti i ttt titiiitititititttty 

ae AT TS UNLGAD DRIVE TO BE TESTED 

4 3% TH T TO BE TESTED NEXT 

4 3 LatFs FoR ai) even eLY4, Rane F THE CORRECT DRIVE. 

427 1 i IT THEN WAITS FOR OK TO GO LOW BEFORE 

4 3 # PROCEEDING TO THE NEXT TEST 

. 74 1 ae *:- Ameena 

4 a3 618108 Btg7a7 000001 001174 "MOV Hy STI ;;D0 1 ITERATION 

4 12106 O01 001100 MOV TACK, 

4 012112 005237 003304 INC UNLD ;USED TO CHECK VALID HALT 

4 121 737 o4s4e4 JSR PC, SUBCLR 

4 pists rte t4 ERROR 24° ;CERR AFTER SCLR 

4 121 7 003322 MOV SUNLOAD, HCS1 

me tiie fac OR Bion {POO RMB ORRE EE FSF TNC BCR 

4 12140 004737 o44012 ISR PC, TSTATN : ; 

4 12144 1 ERROR 12 ;NO ATTN AFTER UNLOAD CMD 

4 012146 C947. o4s42e4 JSR PC, SUBCLR 

4 121Se i ERROR 24 ;CERR AFTER SCLR 

4 012154 013737 001414 003362 MOV T10, TEMP2 

4 pistes baa73e 046460 JSR PC, FSPOK 

Wes 012166 104315 ERROR 315 ;SPEED NOT DOWN BY TIMEOUT 

usge 

4298 

53 

4 012170 PESRT: ;ENTER HERE FOR POWER FAIL RESTART 

4306 .SBTTL STATIC & CYCLE UP TESTS 

4304 33 REKRSKKSKKKERKEEREERSLARRAAAESERERARAEREERLARRRERERRER RAKE RKRREEE 

4 j ATEST 6 REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR3 

4307 :% CHECKS T LITY TO REFERE 

4308 is Dat ve REGTETERS Ano THAT FEY CONTAIN CORRECT STATUS. 

310 a1 2170 ; apie" eceeaue cacti clio eget crmamamaaaimattty tit tetas iis 

4 ig 15152 Sie37 00001 001174 * OV #1, STIME +00 1 ITERATION 

4 re 012200 012706 001100 MOV SStAck SP APS TORE eRe TR 

4315 012204 004737 o4S4e4 ISR PC, SUBCLR 

4316 reat 104024 ERROR 24 ;CERR AFTER SCLR 

| 
| 


Ridspadeseanieaemeetiiaallisian:-datudis dgleheniac a 


: 


SEEESCESCSCLSELSLELSCLELSSCLSCSCLE SS LSLS 
REERESRONON oS | 


SEES LELCLSLES 


SEELSCESCLLCSLSLIS&SCL SIS 


0 UNIBUS 2e<Sane7e pl ¥ :00 


-Pll 


Porororuns 
2R Zor 


Beep ee pe ee eB ee 
& 


att 
£nvo 


Lau aude aed angel ancl aged aed and cael ana and ned aed- aed andl oed 
es 


=< 


*3° Saoi00 
000040 


14 


1 
1 
1 
1 





* Rus 


001216 
o4s4e4 


04S074 


MACY11 — 


003350 
003412 


003412 


bos420 


24 
30 


oo0026 


000001 


001174 


oo00e6 


64S: 


65S: 


CHEER ALL STATUS BYTES IN RKMR2 & RKMR3 


;8R_ IF_VV SET 
;LORAD EXPECTED VALUE FOR AOD 


;EXPECTED MSG Al 


;SELECT WORD 2 


e ype? A2e=0 


ap er atves FOR DRIVE UNLOADED 


YE 
;MSG B2 7 CLEARED FOR DRIVE UNLOADED 


REFERENCE 

a ake 

BNE 4 : 

HOV #0. DRA, E.A0 
es Ro .W>,£.A0 
nov HOH! D. arnt 
HOV 1. 65 

JSR PC, CHKMSG 

cheoR — 
Fea $0 

MOV 82, RKMRI (RS) 
ey svt iF 

FE” aon 

ERROR 83° 


Heap Bet e. IN Trg 4 NOT BIN UNLOAD 


pressegnennnseee ain aA Cee 


ORIVE Seat # FROM MSG A, WORD 11 


ne ee 


tReStORE STK PTR 


AS ctasYS CL bee NOT FIRST PASS 


;CERR AFTER SCLR 


ery revie 3 


; ATES T DRIVE SERIAL 
iy THI TEST READS & PRINTS T T 
3% 
ia SC 

MOV #1,$TI 

MOV aSTACK, 

TST spas s 

cad if. 

ERROR 24 

TYPE NSG16 

MOV 63, RKMR1(RS) 

JSR PC, GSTAT 


;GET STATUS 


ESRcne-PLi 26-Jan-78 14:00 


4373 


y +3 SEL EPEC EE CLL LLLLELL LLL LL LLLE 
ase eNTyRr ere ee tie SSG f 


1 

1 

1 

1 

1 
4408 
2 B1BEEE ATEAE coxso0 
His BBS EK OO 
4414 
4415 012574 2737 
a ale Berke SS 
SLs pigeie patra coo. 
idee le62e0 104027 
ay 
4y 
: 
439 
4428 








GO7 
MACYED SRA CIOSE pRERT DRIVE SERIAL NUNGER 


001174 


003350 


003322 


003350 


MOV HMR2, Ri it SER AL 8. 
MOV asoctvL RM 
: SSUPRS 


iy Basal? BIT * sheet 


of 
1S: ROL RI at NEXT 4 BITS 
ROL R1 
nov ORL 
BIC #127760, RO ISL EAe AL INBuT LO Low 4 BITS 
HOV RG, tea + SON Escr! Oofeit 1 Rtg! CHAR BUFF 
BNE i$ : F ALL HARS_NOT DONE 
(R4) HEL se INSER NULL TERMINATOR 
’ 


Pied 
mo 
ao 
7 


3 
3 
a 


6 3-36 9 A eS a a a a a a a a a a a a a a a a a a a a a a a 
EST 10 SET VV WITH PACK CMD 


; 
7 
; IF VV IS RESET, THE PACK CMD IS USED TO SET IT. 

H « SLERSRERKRERESASSREAESARRERAREKEAERARRRRRRRRERRRERAAAKRRRKRRRRERHE 
¢éT10: SCOPE 


ét 
MOV STI TERATION 
MOV satac a"gp + iPr ORE eRe PTR 
CLR RKMR1 (RS) E TE O 
se Po. Gstat ae Efe us 
BIT VV, HMR 
BNE TSTll ;;GO TO NEXT TEST IF vv SET 
SCOP1 
MOV #STACK, SP ;RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR ;CERR AFTER SCLR 
MOV #PACK,HCS1 
JSR Pc, DOCMD ;D0 PACK CMD 8 GET CONTR READY 
ERROR 116 :RDY NOT SET AFTER PACK CMD 
IT . VV, HMR2 
gir TSTll ; TO NEXT TEST IF w NOW SET , 
ERROR ‘BECK DID NOT SET V 
; war ase 
j ATES RELEASE DRIVE 
is TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK 


Ti iirtiitititititiiiitttiiiiititititiiiiiiiireririrrrere rs oto 


SEQ 0084 


SSS. sess sss 


CZR6HEO UNIBUS RK& DOR PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 8S SEQ o0es 
CZR6HE .P11 25-JAN-78 12:00 T1l RELEASE DRIVE 


4453 845856 P9999 ooo00: ooze "S44? ASCPE oi stines ;:00 1 ITERATION 
MOV :REST 


4431 012632 012706 001100 astack, SP ORE STK PTR 

44 15e83 Pbuba4 sin ecb ERROR a tRONTRCERROR-SE? AFTER ScLR’ 

44 pipes rel OR iv . ;UFE SET AFTER SCLR 

Ra) tpte cg 1$: _ 

a4 Bi 893782 001100 V #STACK, SP ;RESTORE STK PTR 

4443 012664 004737 O4S424 JSR PC, SUBCLR 

4444 012670 104024 ERROR 24 ;CERR AFTER SCLR 

Sp IBNEE GRERH BRERIG POON RRR RKESECRE] app BRRAQEE BT To suntT 
012704 032737 100000 003322 BIT #CERR,HCS1 ;CHECK FOR CONTR ERROR 

uuer Biss § Ppadee PEROR ;RLS SET CERR 

aus ua 0140; ——— i ferig @ TO NEXT TEST IF SET 

daea 127 1040 é RROR be + Bek SET AFTE ree SENT 


egnete’ UNIBUS RK& DR PRT 
CZR6HE.P11 2S-JAN-78 13:00 


4455 


MACY11 apt 1052) -JAN-78 12:08 PAGE 86 
11 RELEASE DRIVE 


CZR6HEO UNIBUS RK& DR PRTI MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 87 SEQ 0087 
CZR6HE .P11 2S-JAN-78 12:00 Tle DRIVE TYPE TEST 


a ee ee eee Oe Re ee ce ret 
aus3 . 
weg 5% THIS TEST COMPARES ORTVE TYPE IN MSG A AGAINST ’DDT’ IN RKDS. 
es i WRONG COT IN RKCS1 IS SENT & ERRORS ARE VERIFIED. 

re 1 ; . “hag! -aelgamiammamamanesssoee secoapranageapeclanmanisig et CCIE acs. 
4465 O1grae 1 000001 001174 ; vile #1,$TI ::00 1 ITERATION 
wie6 1 127 001100 MOV soto Se + ior bee Ere TR 

1 7 o4s4e4 J PC, SUBCLR ; SUB AR T STATUS 
my i queers ERROR 4. + BUSS Y ERROR a get UBSYS CLEAR 
447 1 1S 
We 1 37 000400 003350 Bit .DDT, HMR2 
44 i 1401 Q 
4478 1 RROR ;0R TYPE SET IN MR2 
a4 c : e737 000400 003334 2S: IT T, HOS 
4477 i 31 ERROR 3) ;DDT SET IN RKDS 
i, 1 000400 003350 1S IT DDT, HMR2 
4481 13598 aay NE He P 
4y4B2 O1 ERROR 5 ;O0R TYPE NOT SET IN MR2 
44 1 000400 003334 8S: IT #DDT, HOS 
uugs 01 4 RROR 
1 Ise 1 

44 1 000040 003336 3S: BIT #OTYE,HER 
44 1 1401 BEQ . 
“4 1 ERROR ;DTYE SET IN RKER 
ut B13 0441s _ SCOP! 
132 1 bia7be 001100 MOV #STACK, SP ;RESTORE STK PTR 
44 1 7 o4s4e4 ISR PC, SUBCLR 
ie 61 3bee OBdas4 2RROR 24’ ;CERR AFTER SCLR 
44 1 9 737 001170 Ist TMPY ; SEE IF RKO? 
44 i 000001 oo0000 HOV . LORV, RKCS1(RS3 
408 i O76 1 ? gg2001 ggggo9 98: mov 8<COTISELDRV> , RKCS1(RS) ;GET STATUS WITH CDT SET 
4 1311 7 Base4c 7 JSR pe tRBY ;FIND ROY 
d202 i 1 412 smasae RROR 417 :RDY NOT SET BY END OF SEL DRV CMD 
4508 131 1013 BNE 11S 
45 i i 7 000400 003350 Bit #0. DDT, HMR2 
ueo8 131 1 OR ;DR TYPE SET IN MR2 
4510 013140 032737 OO00400 003334 SS: BIT #DDT, HDS 
4511 013146 001414 BEG &$ 


: 
; 


07 


1 MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 88 oces 
2:00 Tle DRIVE TYPE TEST — 


3 a ABn034 _— 2 ;DDT SET IN RKDS 


awh 
be ee he he ee 


wre NOU £WITU 


Re ee 
a 


ssogesasaneoaseasannegs 


re 
wr 


Haw 
SHE 


003350 11S: IT #0. DDT, HNRE 
RROR ;DR TYPE NOT SET IN MR2 

003334 12S: IT : T,HDS 

1 spoT NG T SET IN RKDS 
003336 6S: IT YE, HER YE=DDT (NOT) #CDT 

;DTYE NOT SET AFT WRITING WRONG CDT 

003322 7S: IT #CERR,HCS1 

TSTi3’ 5 460 TO NEXT Test 

34 ;CERR NOT SET AFT WRITING WRONG CDT 





3 Sree atest ee ee eS PARITY ERROR DETECTION 
; ATES ITY ERROR DETECTION 
is TE T ITY OF _THE DR T TECT EVEN PARITY SENT BY 
Be Eaten eerie urth cet PaPTHy canoe 
3% T Baar PaRITY 1¥ 40 One c CONTROLLER WHICH IS NOW 
;# THEREFORE THE CONTROLLER SHOULD DETECT 
is IS RESET WITH THE CLEAR CMD 
eb ei 
12737 000001 001174 MOV $TI TERAT ON 
012706 001100 MOV satac ings tape rbRe Stk 
737 o4s4e4 PC, SUBCLR Y TATUS 
i 2RROR 24’ + BORT ERROR A Rr TERS cuBsys CLR 
G32” 7 001000 003352 BIT 8D. PAR, HMRS 
Togas ERROR 5 ;C-D PARITY ERROR SET IN MR3 
2737 o20000 003322 2s: BIT #DCPAR,HCS1 


a0 


0 UNIBUS RK 


-Pll 


FESSSSSESESS 
i ata 


ba 


001401 
104036 


a2708 
004737 
104024 


012765 
004737 


PRT 


es- aNe78 13:00 


001100 
o4s4e4 


000020 
04S074 


MACY 11 mas 


000026 


3$: 


07 


L 
c-BoPARTTY ERROR DETECTION 


BEQ 
ERROR 
SCOP 1 
Rov 


JSR 
ERROR 


MOV 
JSR 


3$ 

36 ;DCPAR SET IN CSI 

aSTACK, SP ;RESTORE STK PTR 

PC, SUBCLR 

24 ;CERR AFTER SCLR 
#PAT,RKMRI(RS) ;SELECT BYTE O & EVEN PARITY 
PC, GSTAT ‘GET STATUS ’ 


SEQ 0089 


CZR6HEO UNIBUS RK& OR PRT1 


CZR6HE .P11 25-JAN-78 12:00 


MACY11 30A(10S2) 
T13 


013320 032737 o00200 003352 


4562 
4563 013326 001001 


MO? 


2S-JAN-78 


12:08 PAGE 90 
C-D PARITY ERROR DETECTION 


BIT #0.FLT,HMR3 
BNE 4$ 


SEQ 0090 


= =e 


RE 


4585 


seneeneeee 


Se 
OO00000000 e0000 000 OG000 O00 


SSSSSEEEEE 


WONOULWe-O 


: 


P75 2 PRET 
sooo 
i o20000 
i ay 

13 : EY 100000 
1 ToaoNe ‘ 


127 
818766 Go1100 


004737 O4S4e4 


= 
2 MS 


2 
o 


2737 000011 
043434 


G32737 810000 


27. 014642 
7. 04401e 


010140 
14 


1 1 
o44eS2 


003470 


014666 
100000 


ReOGere RISRERRE 228 28s 


ee le li 





Tien 
we 


MACYI1 api ies) -JAN-78 12:08 91 SEQ 0091 


003352 
003322 


003322 


001174 


003322 


003350 


001176 


003412 


003416 
003420 


001176 
000000 


C-D PARITY ERROR DETECTION 


ERROR ;FAULT NOT SET IN MR3 
4S: BIT #0. PAR, HMR 

ERROR 40 ;C-D PARITY ERROR NOT SET IN MR3 
SS: IT SDCPAR, HCS1 

E OR 4 ;DCPAR NOT SET AFT WRITING PAT IN MRI 
6S: IT #CERR,HCS1 

B TSTi4 ;;GO TO NEXT TEST 

E 4 :CERR NOT SET BY WRITING PAT IN MRI 
; PERE KGEERRGEGREGEREGRRRRRRRR RRR REM RRRRRRRRARRR RRR RRR RRR KRERE 
jf EST 14 VERIFY START SPINOLE CMD 
: T T NT T 
is HE ghost eres, CHECKS THE HE E IRE START We SEQUENCE, IE: 
3 a ae L REPROPAIATE STATUS gy FOR PROPER SEQUENCING. 
3 $58 DIFFE NCE REG CHECKE 
is ENB THE SEQUENCE. 
H PERE GGRGE REG EGERRGEEERERRA ARREARS RRR RRR REE RRR RR RRR RRR RES 
+8714: SCOPE os ore “nm 

sathck SP APS bre ERR PTR 

JSR PC, SUBCLR ;SUBSYS CLEAR ie GET STATUS 

ERROR 24 :CERR AFTER SCLR 

MOV #SRTSPL,HCS1 

JSR PC, DOCMD ;D0 START SPINDLE CMD 8 GET CONTR RDY 

ERROR lel :ROY NOT SET AFTER START SPIN CMD 

JSR 8 TAT ;WORD O 

Bir #0: SPIN, HMR2 

ERROR ;SPIN NOT SET AFTER START SPIN CMD 
13S: MOV #25S , SESCAPE 

JSR PC. TSTATN ; TEST FOR ATTN 

BR 1S$ 

ERROR 3i6 
15S: HOV #<D.SPIN!D.VV!D.DRA>,E.AO ;LOAD IN EXPECTED VALUES 

v #<D.CART!D.DOOR!D.HDHM!D.BRHM>,E.Al ‘ 

MOV #1,€.81 

JSR PC, CHKMSG HECK 

. WORD of thio ihe Read tart 

ERROR TER START SPIN CMD REC’D BY DRIVE 

ERROR 60 

ERROR 6 Hse Al RROR ‘ 

RROR 6 im G Bl ERROR 

TST TIM 

BNE ;BRANCH IF P OR L CLOCK PRESENT 


1S: MOV #30S, SESCAPE 
MOV #CCLA, RKCS1(RS) 


a ee 


¢ 0 UNIBUS OR PRT 
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1416 
ae 


oo00 
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oo000000 


he he 


if 
o44eS2 
46 
46 10a0e3 
: A ie 
HEN 
ug Blase ot files 
1 27 
{ i 3434 
ik 
ile 


1 0340 
1 4 
46 1 7 
46 1 
ape ,. ; 7. o44eSe2 
ieee flee | 
see Slices iaiess 
see Sites IBiacs 
4004 014462 
40 


OQq00 oO 
_ 


tataatata 


v2un~ 
fee bo hee 
ro 
oy 
£ 
qaue 
N 


; tataatatatatatat ad 
SH 
O00000000 


MACY11 i eet 


1 
003322 


003412 
16 
20 


oo34e4 
003430 


1374 


16S: 


64S: 


VERIFY yaTART pias = 


g54 S30S303 


mmr 
333 
33 


ne 


m 
Bo 


eausee 


wan 
nara AFTER HEAD LOADING 


pL Patti 


.0SC!0.SPIN!D. .DRA> ,E.Ad 


EBC pSBOKID. con ne p> .£ Al 
1 MSG B1 
WER ie ithe GTED MSG BS 


;EXPECTED MSG AO 
;EXPECTED Al 


7 Ast 6240 1a: Sas"5 Spectr ED HE 
bs te ; RROR 
CYLADD i G Be =0 


I 
| ea gg ye 


¢ abe 
EB ob 
—=t2 
ER 
oOo 
ps ts 
wr 
anu 
aa 






SUN ena KC ;DRIVES 
AD AR T CONTR RDY 
is! RO Roy BFYER Brive © CL CMD 
PC, TSTATN :TEST FOR ATTN 
154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
e<oe>- . SPIN!D. DRDY!D. VV!D. DRA> ,E. AO ;EXPECTED MSG AD 
#<D. SPOK!D.CART!O. " '0.SSP>,E.Al sEXPECTED Al 
5 eo FORE CTED’MSG B1 " 
2 3 
: >MSG SD on 
83, “BS ;MSG B FOR ETED Mee B hee 63 
PC, CHKMSG ;CHECK MSGS A0,B80,A 
T.A2!T.B2!0 eter ED HERE 
6 MSG a0 baOR Re TER bri CLEAR cH 
74 : e° RROR 
sce in Bl ERrOR 
12s 
CLR, RKCS1(RS) 
ero 
PC, CLKON CLK INTR ON FOR 60 SEC MAX 
#1) RKMR1(RS) ee ecT WORD 1 


ee ee a 
. _ —— 


CZRGHEO UNIBUS RK& DR PRT MACY11 30R(1052) _25-JAN- ' 93 
C2REHE.P11 25-JAN-78 12:00 RGt0Se) Rey eer Sbince’ Cae os8 Gow 


ues bis St Sosb00 oo33s0 er 80° FO, HMR 
ue58 237 001376 Ss MUP ;1S 60 SEC DELAY UP ar 
48) Bi dbee acta ERROR jEWD NOT Ser brit N 60 SEC FROM 
H ‘ 

ess Bii89 892282 35888 oooc0n §S* tev BEREAN Rxcsacrsy * UMN OFF CLOCK INTERRUPT 

05 Ee o Re 

iui 7 men . KON ;TURN CLK INTR ON FOR S SEC MAX 

ii 1 ooo026 6S: HOV ai, HRI (RS) ;WORD 1 
ue 3 et Es 003350 BIT ‘FWD, HMR2 
SB GIS Biirg, 7s a af 
46 iuiee 1 ERROR FWD ANOT a SbEBRED MITHI IN S SEC OF MOTION 
= Bisieg fora, Bete “ & a Bin REST Fo nS 
va 38) rt 140 003412 17S: hoy PIP!D.SPIN!D. SUITE RADE AO SEXP qf Reb hoe EST 
4 14 i 720 003416 MOV #<D.RTZ!0. REV!D. SPOK!D. CART!D. DOOR!0.BRHM!D.SSP>,E.Al 
e 01421 12737 1 003420 MOV #1,€.81 
4 4 737 o44es2 JSR PC, ¢ CHKMSG HE eB ee 
4708 fie i ERROR . H! eit A LIMIT DETECT 
4710 i4 i 1 RROR i G Bl ERROR 
at Biusse 1 i8? RROR 18? G Bi ERROR 
4713 Qlusde 012959 Bodaos BoLara Mov wa’ Seen 
471 1 J PC, CLK ;TURN CLK INTR ON FOR 4 SEC MAX 
ie Q Here — i a ae  s" 
4718 O14 003350 BIT #0: FWD, 
4719 O1 
170 re 001376 ifm 
ue 14508 104102 ERROR 102 WO NOT are TER WITHIN 4 SEC IN RTZ PORTION OF 
4704 O14 737 047302 Qs: JSR PC, CLKOF URN CLOCK INTR OFF. 
izes 1431 o44ole JSR PC: TSTATN ey FOR ATTN 
7? rt h ERROR 138 ;UNEXP_ATTN AFTER OUTER LIM TO CYL O 
47 14 i 930140 Co3412 18S: HOV aD. PIP!D.SPIN!D.VV!D.DRA>,E.AO ;EXPECTED AO 
4750 14 1 7 DC MOV a<D. RIZ!D. FWD!D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al 
4731 014342 O1 i ete MOV #1,€.81 


ESReHE- Pll ees¥an-78 1 


4 


SEES ECEELSCLES CSL ELCS CLOSES 


SRRERARSS RCNA RRR 


SELES 


rt FF hhh hh ee bh Po 
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a 
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2 
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cess ee 
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2 
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Pe: 
N“ 
Ww 
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7. 
104315 
004737 


z 
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1 SER 


044012 
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001176 


003322 


10S: 


11S: 


12S: 


14S: 


DOs 
y Start SPINDLE CH 


PC, CLKOF 
 TSTATN 


#08, , SESCAPE 


ECLA FKCSI (RS) 


TSTATN 
nS 

PC, SUBCLR 
e4 


T10, TEMP2 
pe FSPOK 
316 


PC, SUBCLR 


ie IPE Mek fe can TO CYL O DURING LOAD 


Mee AH ERAN 


; TURN CLK INTR ON FOR 1 SEC MAX 
;WORD O 


;SEE IF ORIVE READY 


(lll 
NOOATIN A AFTER START SPIN CMD 


sod RKMR 2 & 3 WORDS O 8 1 


Regt "Str fog AFTER ST. SPIN CMD 
& 

F 

e 

SEE FE a 44 Oye IS SET 
RETURN HERE IF Su 141 15 SET OR 
;SW 8 WITH SWR <7:0> APPLY 


;CERR AFTER SCLR 
;DO UNLOAD CMD 8 GET CONTR READY 
:RDY NOT SET AFTER UNLOAD CMD. 
;NO ATTN AFTER UNLOAD CMD 


;CERR AFTER SCLR 


;SPEED NOT DOWN BY TIMEOUT 


c 0 UNIBUS RK& DR_PRT MACY11 (1052) -JAN- : 9s 0093s 
C2REHE.PLL 25-JAN-78 12:00 TIM veRtry START SPINDLE’ CMD nee 





4 014616 104024 ERROR 24 ;CERR AFTER SCLR 
4 1 D011 R 
4 : arty ist pPrLG 
4 1 1 164252 IMP PERR 9,WaS SE ‘ 
4 1 177 164244 65S: IMP FADR ay is Blas SET 
: 
um 1 2ss: JSR KOF 
4 ive Bars Ne Cpe 
i . oat , e eer och ET on IVE 
1 1 Heer sm, BN 
4 1 30S: JSR CLK OF 
1% 14 Ne 
1 1 164234 I ON 
14 313 Ton IVE 
14 1 014462 Onn T 
4 .SBTTL yReAD: ADER/WRITE 
1 ; Pret ete e teen eratic CYL DIFF AMD CYL ADOR REG TEST, PART 1 
4 13 ;ATEST STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 
1 : an TEST 
3 : poh BE Re Se eats 
iS : a Pere 64,1 ) WITH EVEN PARITY SET. 
uBig $i 18 $8 ALLOWS FOR CHECKING. 
1 ;% TY 
W619 is “Rertt Staru 
4 14712 i Mea et 
14714 O1g737 1 001174 MOV #1,3TI RAT on 
4 Bis? 2 Ol Bos rt MOV setacn : Ape dae Et 
147 CLR ;CYL # REGISTER 
4 Bt aoS8 12737 100000 003370 MOV RBITIS, TEMPS 
b147 3 04415 saa SCOP1 
; 14 bi e70E 001100 @STACK, SP ;RESTORE STK PTR 
14744 737 o4s4e4 J PC, SUBCLR 
Biaded rte 2RROR 24 ;CERR AFTER SCLR 
14 1 oo0000 MOV #CCLR, RKCS1(RS) 
14 i 22 900019 MOV SUNT RKCS2( RS) 
tH 5 4g ney Pee Ab” - ;D0 RECAL CMD 8 GET CONTR RDY 
wey i1sooo 1041 ERROR 124 :RDY NOT SET AFTER RECAL CMD 
4842 O1 01 1 oo0026 MOV #1, RKMR1(RS) ;SELECT WORD 1 
4843 reat pigs 85 miaenee JSR PC. eSrat ‘ 
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STATIC eye DIFF AND CYL ADDR REG TEST; PART 1 


an gengecs ale 


Sg eqieee ae 


ae Se0eee 


333358 


w 
oO 
.=) 
v 
— 


arcana 


Essen fai gars tyneour RECAL CMD 


;NO ATIN AFTER RECAL CMD 
OSC!0.SPIN!D. Teor ORA>,E.AO ;EXPECTED MSG AD 


e SPOK!0.CART! oe SSP? ,E.Al ;EXPECTED Al 
i Bl ED'MSG B 
$5°E 783 cae. 


er - aa Se 


ae RKARTCRE) 5 
Pe gsrat fs Se 


R, RKC (me) 
pte Takes ) ;ORIVES 
188 REIVERSLAPSAAVE 88H EBB” 


TSTATN ; RR FOR ATT 
;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


py 







e860. .SPIN!D. -DROY:D VV!D.DRA> ,E.A0 ;EXPECTED MSG AO 
8<D. SPOK!D. CART! 0. BP erra ,SSP?, ,E.Al ;EXPECTED Al 
a1,e. -Bl if ; F ED'MSG B1 
A ’ 
; : ep Cc Be 
$5°E 65 hee B FOR &TED Hee B3 
PC, CHKMSG ;CHECK MSGS A0,B0,A1 81 
T.A2!T.B2!0 CIFIED HERE 
Be ; 83 AFTE CORIVE CLEAR CMD 
74 :MSG Al ERROR 
266 :MSG Bl ERROR 
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STATIC CYL DIFF AND CYL ADDR REG TEST; PART 1 
eSTACK, SP ;RESTORE STK PTR 

PC, SUBCLR 
a4 


aha 


;CERR AFTER SCLR 


INC NOT T TEST CERR IN GSTAT1 
no rit SPAT RRMA CRS VEN PAR 
Si 
JSR BOOS ;D0 cox cD § FT cours soy 
ERROR 2 He YER OM SEEK WITH BAD PARITY 
Z TSTATN ; st pit saree 
MOV N! oly vv!D On SEEK E.A0 BPO EXPECTED AO 
my ES prip-seus 
MOV + 1D. CART!D. DOOR!D.BRHM!D.SSP>,£.Al 
Bey E 
ROL : 
ROL . 
ROL ; 
MOV . ,£.B2 
BIS 82,€.B62 ;ADD MSG ID 
JSR PC ; CHECK Ss 
,HORD Fe es 10 . =§ Mae istaits HERE 
110 ;MSG AD AFTER SEEK WITH BAD PARITY 
fee ee 
RROR 1 ; i 
ERROR 14 :MSG Bl ERROR 
CMP  yenstey 
oR 4 ;CYL ADDR IN B2 NOT=RKDC 
2s: CMP RO, CYLOIF 
oR 44 ;CYL DIFF IN A2 NOT=RKDC 
a8 CLR YPCERR ;ALLOW CHECKING FOR ANY CERR IN GSTAT1 
Rot 0 ierlety EXT RAZOR. CYL 
C RO, MCL ge ¥L DONE! 
TET16 iE GO $8 iF No TST 
4S: MP 
; pTEERMtEAHHHHERETATIC CY DIFE B CYL ADDR REG TEST-PART 2 
; ATES STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 
:% TEST T T THE CYL 
BE GRASS Rts PUR, onsale REIN 1 
:% F VERY OTHER CYL. (N EEKS). 
i CY BERFORMED 1 AME MANNER AS THE ABOVE TEST. 


CZRGHEO UNIBUS RK& OR PRT1 


CZR6ME .P11 25-JAN-78 12:00 
e GIEEE® 89299 on005 cour 
: : a ef 001340 
2) HS ESS ave 
ie 
a i 1 oSS646 
a fles Bae Be 
BIEELE APMIS ons s00 
a ES BER on 
: 1 1 
1 ooo0e6 
a Bee BSCS canoso 
414 003362 
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pilteatitatiee 
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PAGE 96 
STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 


SEQ 0098 


ee 


+éTie 


MOV #1,STIMES 
MOV aStack, SP 
TST BYPT16 
fie lice 
IMP ibe° 
13S: TST STMPY 
Q 1S$ 
YPE iiteces 
15S: PF pe fiéce 
16S: CLR FRCYL 
LR TOCYL 
LR CCYL 
CLR PCYL 
SCOP1 
MOV #STACK, SP 
ISR PC, SUBCLR 
ERROR 24 
MOV #CCLR, RKC 
me Be Re 
Tein hq 
MOV RKMR1 (RS) 
98 Pc TA 
Z, HMR2 
Bin ft 
4S: V 0, TEMP2 
mm 3 pa ear 
ERROR 5&5 
Mov #<D.DSC!D.SPIN!D 
MOV #0, SPOK!D.CART!O 
MOV —.B1 
CLR ete 
v HH “BS 
ISR PC, CHKMSG 
: T.A2!T.B2!T.B3 
ERR 31 
RROR 27 
RROR 222 


CHECK "e 


;;00 1 ITERATION 
:RESTORE STK PTR 


;BYPASSING TEST 16 


F RKO7 
:10-12 MIN TEST 
32-4 MIN TEST 
;FROM CYL 

?TO CYL 
:CURRENT CYL 
;PREV CYL 


;RESTORE STK PTR 


;CERR AFTER SCLR 


ERBv RST SET AFTER RECAL CHD 


;SELECT WORD 1 


Eaton Ptyneout RECAL CMD 
;NO ATTN AFTER RECAL CMD 
;EXPECTED MSG AD 


Paes ;EXPECTED Al 
erie FOR BXPECTER MEG BS 


AO, 80,A1,81 


Dac TER REGAL Cro 


rad 





at 


SRRERSDOUUNTNOD 2 232282 sce RTE SR SSUES 


O UNIBUS RK 


Pil 
016004 


— bb ee 


Cd cel ame ced ane ame cred ae cel ede eel ee seed edd wee ed ed wed 
CoCrCrrs co 
(Sak puLonl ond oniesiiicen acl oto! 
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Oo Ero 


oo 


—— Pe 


oo 


oo 
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eo Fh FY 


be 2 be bh bao bt be be eb be 


if 
vy 


104276 
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o44eSe 
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STATIC CYL DIFFS CYL ADOR REG TEST-PART > 
Ene ase <AFTER REC 
MOV a2; chia ) ; 
134 as 
; 


ee 
FDO 18 BRIM PELE 


Be +N atte ;TEST FOR ATT 
RROR 154 ;ATTN NOT CLEARED AFTER ORIVE CLEAR CMD 


T CONTR RDY 
AR CMO 






nov ee . SPIN!D. ORDY!D. vv! one», .AO ;EXPECTED MSG AD 

v SPOK!D.CART!O. 1D. ,E.Al ;EXPECTED Al 
om -B1 “8 s i i i MSG B81 

.Be T 

JSR PC, CHK cneeet eh ht 
: T anes, " t 

RROR is nse 83 EP CL CEEaR CMD 
RROR ES 

RROR 

RROR Bl 
Rov . aSTACK, SP ;RESTORE STK PTR 

, SUBCLR 

2RROR BS . ;CERR AFTER SCLR 
MOV SPAT, RKMR1 ( N PARITY 
nov ies } ie TO CYL ADDR 

v YL, tenes 
MOV TEMPS ;PREV CYL 
SUB 4, TEMPY 
BPL ;BR IF TEMPY IS POS 
NE 
MOV MP4, CALDIF 
rey Bg 

;D0 SEEK CMD & GET CONTR RDY 

ZRROR :NO ROY AFTER SEEK WITH BAD PARITY 
ISR see TSTATN : TEST FOR ATTN 
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1 PAGE 100 
STATIC CYL DIF RE SEQ 0100 


G TEST-PART 2 





1 o4 ERROR 125 ;NO_ATTN FROM SEEK & BAD PARITY 
1 1 900000 MOV SCCLR,RKCSI(RS) ;CLEAR 
1 j MOV TOCYL ARK (RS) RESTOR RKDC AFT CCLR 
16314 7 4 ISR YL : cvL 
1 727 001 001364 che TOCYL, CYLADD ;SEE IF TO CYL ECHOED OK 
1 140 9 
rt i 1045 ERROR 45 ;MR3 NOT=RKDC 
0047. 7 3S: ISR PC YLD ;READ DIFF 
bites 3737 iets 001362 ch GRCD PE EVLDIF SEE IF Bye DIFF CORRECT 
1 i ERROR 46 ;CYL DIFF IN RKMR2 INCORRECT 
016350 4S: 
1 1 00000 o00000 MOV #CCLR,RKCS1(RS) 
1 1 900019 MOV RKCS2(RS) ;DRIVES 
1 3322 HOV acl AR, HCS1 
1 J AD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
i ERROR 1S! :NO_RDY AFTER DRIVE CLEAR CMD 
‘ ? 044012 SR PC ,TSTATN :TEST FOR ATTN 
164g 104154 we PRROR 1s¥ ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
016419 Lowy SCOP1 
1641 i 001100 MOV #STACK, SP ;RESTORE STK PTR 
1 JSR PC, SUBCLR 
Bieuse ERROR 24° ;CERR AFTER SCLR 
1 MOV SPAT, RKMRI(RS) ;EVEN PARITY 
184 MOV FRCYL, RK (fe seve RETURN CYL ADDR 
1 MOV FRCYL.CC 
1 MOV cov, t MP 
1 MOV vE TEMP4 
1 TEMP3, TEMPY 
i BP ;BR IF TEMPY IS POS 
: 3 Ol MOV T MP4, CAL DIF 
1 aM kK eS 
1 JSR DOcMO ;D0 SEEK af 8 GET CONTR ofoy 
1 ; é OR iNO Y AFTER SEEK WITH PARITY 
1 SR TSTATN :TEST FOR ATTN 
1 1 ERROR 126 :NO_ATTN FROM SEEK & BAD PARITY 
1 1 MOV LR,RKCSI(RS) ;CLEAR ERR 
1 1 HOV FRCYL{RKOC(RS) ;RESTOR RKDOC AFT CCLR 
1 1 J PC YL : cvL 
1 16 4 che FRCYL, CYLADD :SEE IF RETURN CYL ECHOED OK 
i i Q 6S 
: 16564 ERROR 241 ;MR3 NOT=RKDC 
51ge 016566 001350 6S: CMP TOCYL, FRCYL ;SEE IF TO=FROM 
6123 016674 BNE 10$ ‘DO “TEST IF NO 
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T1l6 STATIC CYL DIFF & CYL ADDR REG TEST-PART 2 


000001 


001362 


012056 


012056 
001352 


TST TOCYL ;SEE IF=0 


;CYL DIFF S/B O ON CYL O 


;CYL DIFF IN RKMRe INCORRECT 


9S: JSR PC BOF at TW SEEK Lp NOT P 


10S: a PC YLD 

ch fone 2 co0,o1, OIE DIFF OK 

ERROR 242 om. DIFF IN RKMR2 INCORRECT 
7$: 

TOY SORT. RAEELIAS) ontves 

MOV ar Nest y 

JSR MD $00 DRIVE CLEAR CMD & GET CONTR RDY 

RROR isl RDY AFT R DRIVE CLEAR CMD 

SR PC ,TSTATN TEST FOR ATT 
an ERROR 154 art NOT CLEARED AFTER DRIVE CLEAR CMD 

NC TOCYL 

Pra ior IF A mene ALL CYLS 
p Se 

MP 1 
gS: INC FRCYL 

MP FRCYL,LCP 

Seo T FTbrLe ' i SEE 1 RET on ; 

MOV FRCYL, TOCYL *FRCYL apbHays = OR > TOCYL 

IMP 13 ‘ELSE RE 
12$: 
3 « REESEKSSRSREREREREESESRRESSRRSRERESSRESESRRERERRERRRERRERRERREE 
: ir 17 HEAD REGISTER TEST 
i TEST ABILITY T ECT AL ( ) 
if VIB ORKDS 8 READING BACK FROM nc BS 5 BY Ae EROS Batee’ cno. 
is HEAD 3 IS CHECKED TO PRODUCE I j 
i SARE TIED TO SEEK CHDS 
3% SELECTING 3 S*Rust ReSuLy 2A IN Se x INCOMPLETE ALONG WITH 
3% ee GAL s. IF NOT. THIS MEANS THAT CHANGING HEAD ADDRESSES 
i ARE NOT TIED TO SEEK COs 


\ 
O00 


ZR6HEO UNIBUS RK& OR PRT1 MACY1LI 30A( 1052) -JAN-78 12: PAGE 102 
ZR6HE.P11 25-JAN-78 12:00 HEBD REGISTER #9 — 
1 s EESKKKEAKSRSAKSRRSSSAAAAERERKAKRERAAARRAKRREARARRRRRKRERRKAKKELES 
Big) 01 756 +éT17: SCOPE 
1 1 l 000001 001174 MOV #1, STIMES ; 1 ITERATION 
i 016776 012706 001100 MOV eStack, SP ‘ hESTORE STK PTR 
: 817858 ooso00 1 CLR RO ;HEAD # 
i 1 104415 , SCOP1 
Ht 017006 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
i 017012 004737 o4Ss4e4 ISR PC, SUBCLR 
i 017016 104024 ERROR 24 ;CERR AFTER SCLR 
i 
1 1 1 MOV acc R, RKC 
tse plas Biargy Busse ESSE! po nccm coop ot court 
tone Osi a nee ee 
i 1 seal 000026 MOV ei, » RKMRL (RS) ;SELECT WORD 1 
i 003350 pe eA 2, HMR2 
1 ERROR sRTZ NOT SET ING RECAL CMD 
1 45 : 1414 003362 64S: MOV Fid TEMP2 H i REOu 
17102 535 Badod4 JSR PC, FaTTi ‘PT A i 
aE 17106 104055 ERROR 3NO ATTN AFTER RECAL CMD 
i 17 003412 MOV .D0SC!D.SPIN!D.DRDY! .ORA>,E.AO ;EXPECTED MSG AO 
REI Rise Bee Se lsepo.comrl a Sette at, sOmEETED 
13 He rete nov Bl iff ann ED'’MSG B81 . 
1 1714 MO Bg ; CTE MSG Be 
ig 171 i weethchy MOV se MSG B3 
i 17 737 o44es2 JSR = 
154 sHORD I. cate “Be:t.es | sPSeectE ten HERE 
171 i RR ; RECAL CMD 
; 171 1 RROR : 
33 134 i RROR : 
7174 ooooe. =’ Bue AST REART(RED SELECT. T SAGE 
i 7 itera oR P + KARL : io 
55 ifr 737 001364 TST a ; “ CESSFUL ? 
4 pre REPORT THE ERROR 
2e30 17216 6SS: ; 
17216 01276 p00 MOV SCCLR,RKCS1(RS) 
ieee Blse : BL Reey somes 
5235 017240 004737 043434 JSR PC, OCD 300 DRIVE CLEAR CMD & GET CONTR RDY 


co SO  nhe:200 0 O OO CU 


CZR6HEO UNIBUS RK& DOR PRTL 
CZR6HE .P11 25-JAN-78 12:00 


elt 
E 


. 
O00000 O000000 G0000 
Cr ed eed ee el ee ee eee ee 
NNN NNNNNN 
Kes SeeRe? Foes 


£ 





MACY11 30A(10S2) 
T17 


003412 


16 
20 


Bos40 


ot Gh 01432 0o00001 
1 1401 
1 1 
1 
ee 
i A72742 001100 
Biz aee 
17366 
Biee B08 
a Pie 
1 003322 
74 
134 ” 
17414 
Be fin ‘cna mel 
174% nD0007 
“ae com 
1744 
at net 
1 03428 
* Ol 342: 
152 003424 
Bes0 617504 001003 003430 
3 17512 





66S: 


3S: 


HEAD REG REGIS ER 3 


MO8 
108 PAGE 103 
pe TsTaT ;NOLRDY AFTER DRIVE CLEAR CHD 
sagt ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


#<0:D. SPIN!D. DROVE +P RE2 Bo 5470 ;EXPECTED MSG AD 
#<D_ SPOK!D. conrsb: D.BRHM?D.SSP>,6 Al. ;EXPECTED Al 
fie i fg Foe ExPecreR nse 


Fo Ast esto sOHECK CUeifie E 


a3 etch DRIVE CLEAR CMD 
is ee 
be mee Bt 
HEADA, #1 ;FOR HEAD 0, 83=1 
53 ;RECAL DID NOT RESET HEAD REG IN B32. 
#STACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24’ ;CERR AFTER SCLR 
, RKDACRS) ;HEAD # 
eS 


Pe, DOCH 8 BEEK often oft SONTR NTR pov 


PC, TSTATN 
ATTN AFTER SEEK TO SELF 

it reenter Y!D.VV!D.DRA>,£.AO ;EXPECTED AO 

4g’ ;BR FOR 3 5 

Ee BO PGR AEAbE D, i, 


ce SEOK?O. CART. DOOREO. BRHI?D w EAl 


EM 
a5" = ;SEE_IF HEAD O 
Ka1T9!3, ,E.B3 BRP EXPECTED B3 FOR HEAD O & MSG ID 


SEQ 0103 


cnet. 





ppppannuonnacgae 
ooo 


38 


UU 
+ 
wr 


a3 


34 


0 UNIBUS RK 
Pil 


Sage paTEROSNSD 


ee FF hh 


BRE SS SORE GET 


oo 
a 


nn 
Sooo ao 
Not «OOo 
ee 

<8 


017656 


2eSaN -78 B12: :00 





ooo0de 
001362 


MACY11 30A(10S52) 
T17 


003430 
003430 


000026 


Rg 
: 


675: 


68S: 


9S: 


2S-JAN-78 12:08 PAGE 104 


HEAD REGISTER TEST 


CMP 
BNE 
MOV 


RO, #1 
 * sehaetielapeiet 
#<BIT11!3>,E.83 


PC, TSTATN 
70$ 


s See F HEAD 1 
:B3 Ba FOR 'H HEAD 1 
;83 FOR HEAD 2 


C 1 
: MSG tFIED HERE 

MSG a0 ERRO AFTER LOAD HEAD REG & SEEK CMD 

M RROR 


SELECT WORD 2 


ft eta a6 A2=0 
;MSG ee NOT CLEARED AFTER LOAD HEAD REG & SEEK CMD 
;SEE I G Be=0 


;BR IF ves 
;MSG B2 NOT CLEARED AFTER LOAD HEAD REG & SEEK CMD 


;BR IF HEAD 3 

;FOR RKDA=HEAD 0, HEAD=1 IN B3 
;FOR RKDA=HEAD 1, HEAD=e IN B3 
;FOR RKDA=HEAD 2, HEAD=4 IN 83 


;HEAD DECODE IN B3 INCORRECT 


;D0 RECAL CMD & GET CONTR RDY 
;RDY NOT FOUND AFTER RECAL CMD 


;ORIVES 
300 DRIVE CLEAR id GET x conte ROY 


& 
NO RDY AFTER DRIVE CLEAR 
{TEST FOR ATTN 


SE@ 0104 


coo 


CeREHE. 





O UNIBUS RK 


Pil 


26 fanc7e 1 :00 


ieee 104154 
177% 


Hee 
1 
177 
1 
ae 





MACY11 = i nie 


000000 
003362 


001174 


003322 


003360 


003322 


003412 
003416 


wel hen a PAGE 105 
REGIS ER TES 
ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
JSR TAT 
BIT 85! {DAE HMRS ; SEI E Ae DAE IS CLEARED 
BEQ o28 sBR FF 
ERROR 31 SOLEARED AFTER RECAL CMD 
69S: MOV eck RKCS1(RS) 
MOV ;L00K FOR ATTN FROM RECAL 


JB oe pC;FA PATTI 


5, SE 0 AE 0S SE SE A 0 a 9 a 0 0 a a a a a a a a a a a a a 
EST 20 SEEK TO CYL O 


Eg THERE Uns rele ith APPROPR 
iets Ro_MQVEREN Cerne ALL IATE 
a es TWEEN 10-15USEC. 

ADER’ 1S YNOT OAS THE PACK MAY NOT BE FORMATTED. 
be: Bet cn ne <teics on + veneaan ne 


ROY RHRERER = EABRrond TERRA 


JSR PC, SUBCLR 


eRe ° 5 ROE YRETER CER & GET STATUS 


;NO ATTN AFTER RECAL CMD 


30 i CK ace > 
+ 


pe wees weer er wewses 


Ur: 
+ 


SR Bd RDCYLA ?READ CYL AODR AN RKMR3 
an 

* ERROR 130 ;CYL ADDR NOT CLEARED AFTER SCLR 

: SCOP1 

MOV #STACK, SP ;RESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV sSEEK HCS1 
JSR PC, DOCMD ;D0 SEEK CMD & GET CONTR RDY 
ERROR 131 :RDY NOT SET AFTER SEEK CMD 
MOV a5, TEMP ?SETUP 100US TIMEOU 
JSR PC, FATT2 ;FIND_ATT 
ERROR 1 ?NO ATTN NFTER SEEK CMD 
BIT #CERR, HCS1 
BEQ 4 

a ERROR 10 ;CERR AFTER SEEK CMD 
MOV #<D.0SC!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
CLR E.B0 “EXPECTED MSG BO 
MOV #<D. SPOK!D. CART!0. DOOR!D. BRHM!D.SSP> ,E.Al ;EXPECTED Al 


te nS 


C. 0 UNIBUS 
c -Pll 


Saraaeera? 
ob be 
NOU EL 
rata 
—— me 
23 K28 
== ON 


Ro Sow 


itttttrerett epee set 


PEELE 


BEVERZER 





aiasasssssgzc" 


020372 To4os4 
eyes 050374 6127 7 


DR_PR 
2S-JAN-78 


020142 012737 


737 
1 . 
1 
104266 


13:00 





001364 


MACY11 SPB (1052) Fe TaNe ve 12:08 PAGE 106 


003420 


Bos450 





001174 


001176 





0 CYL O SEQ 0106 


x 
ran 
m 
. 

wo 
_ 


;MSG ID FOR EXPECTED MSG B61 


GiiGecs 
;CHECK MSGS 80,80,01,81.. ene 
38 g ice th SEEK CMD 


:M 1 
:MSG Bl ERROR 


33 
ea 
BR 


EE 
23 
Sete 


Ra tet 


;CYL DIFF NOT CLEARED AFTER SEEK CMD 


;ORIVES 


(RO Rov AFTER ORIVE CLEAR CHO 


PC, TSTATN ; TEST FOR ATTN 







RROR i584 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
Faron $88 
a 
CLR e145: HA it 
MOV SSTESBS thee 1B FOR EXPECTED Nec BS 
JSR —s- PC, CHKMSG ;CHECK MSGS al 
ae L,GetT.Ger0 MSG AD Efe nace SE CHP le CLEAR CMD 
ERROR iNee Bi ERROR 
TST ADD 
eget tA? ABoR iN GE NOT CLEARED AFT SEEK CMD. 


5 5 Me Me Me ME ME HE ME HE HE HE Ee a a a a a a 0 a a a aE 


jjFEPOOREReeeeeeeSeanasdaneudeennnteninetentanenanaaanaanananaaas 


MOV #1,$TI 5: TERAT 
MOV setack SP Ape Tbe ERR bon 

ISR PC, SUBCLR ;SUBSYS CLEAR 8& GET STATUS 

ERROR ?CERR AFTER SCLR 

MOV 82S , SESCAPE :GO TO NEXT TEST IF ANY ERROR DETECTED 


RE . » 


CZR6HEO UNIBUS RK& DR PRT1 


CZR6HE 


a 020472 
4 


Mirror) 
FEEELE 
QRRLGR= 


See 
Bie 


-Pll 2S-JAN-78 12:00 


012737 


004737 
104142 


Bba735 
b73}39 
Bis7ar 


o000es 
o4sss4 
Babe85 
001402 
folger 

001406 


337 001400 
001354 


005037 601176 





See Ser= 
Wstwre 
Droru 
are 
£ 
ru 


wu 
uuu 


MACY11 5 Rey 2S-JAN-78 12:08 PAGE 107 SEQ 0107 


001400 


001404 


001174 


i: 


wo 


TEST SECTOR COUNT REG. IN MSG B3 


MOV #21. ,SECNT ;22 SECTOR FORMAT TEST 
JSR PC, Fso22 “FIND SECTOR 0 
ERROR 142 ;SECTOR 6 NOT FOUND BY TIMEOUT 
PSEC, ; PREVIOUS 
64S: SR FINS TRB et SECTOR 
ERROR iS ee ones joorelt SECTOR NOT FOUND BY TIMEOUT 


s i oan OLE 


CMP ie Bsc 
;BR IF READ SAME TWICE 


es ue 


ERROR ee AS ORROR  SectOR REG UNSTABLE 
H ;MAY EORING BEET OR PUL IME 
6ss: CMP SECTOR, ESEC 

PE RoR 1 ;MSG B3 ERROR BETWEEN SECTOR COUNTS 
66S: DEC SECNT 

BNE 64S ;8R IF SECTOR COUNT NOT DONE 


2s: CLR SESCAPE 


SE EEE 
DETECT OUTER LIMIT 


‘WAGEET AR WAEL DMT 1 PIRES POSITION ON CYL 0 


A. HEADS WERE NOT ON CYL O 
AND/OR B. COULD NOT SEEK IN REVERSE DIRECTION. 


Oc. g EP Rpm pany pemmeenns erie er: 


ee 


tSt2e: 
MOV #1,$TI TERATION 
MOV sethck SP ae TORE ERR PTR 
ISR PC, SUBCLR ;SUBSYS CLEAR & GET STATUS 
ERROR 24 :CERR AFTER SCLR 
LR LPELG 
NC YPCERR ;BYPASS CHECKING FOR ANY CERR IN GSTAT1 
NC UNLD :USED FOR VALID HALT 
MOV @PAT,RKMRI(RS) ;PARITY & WORD O 
MOV FCP1’RKDC(RS) 
MOV #SEEK HCS1 
JSR PC MD ;D0 SEEK CMD & GET CONTR READY 
ERROR 122 :NO ROY FROM SEEK WITH BAD PARITY 


5 aah we =~ on L 00 MACY11 a”? Saeed FS ans B bF.09 PAGE 108 SEQ 0108 










551 7 JSR one FOR ATTN 
3 RROR TN FROM SEEK WITH BAD PARITY 
Bi 14 Rov Y!D.VV!D.DRA>,E.AO ;EXPECTED AO 
¢ p i MOV D.BRHM!D.SSP>,E.Al 
5S 1 MOV 
550 

+ + He 
22s 737 o4wese JSR PC CHKMSG fits arn 
5Se% ll RROR ll ER SEEK WITH BAD PARITY 
52 1 id RROR 14 ine 
it fouls RROR 14 i 
55 3 MOV SCCLR, RKCS1(RS) 
55. i b87898 ueette MOV SUN Fe KCeSCRED ;ORIVES® 
Hy cnssee ae Bo g 0&1 cone Rov 
053 2RROR i a RO AFTER ORI CLEAR CMD 
+E: : o44o1e Be gTSTATN ;TEST FOR ATTN 
53. i aa RROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
+} : 
tah 00341 MOV 'D. SPIN!D. DRDY!0. VV!D. ORA> ,E. AD ;EXPECTED MSG AD 
ay 7 0 a Sov e. SPOK!D cant 8 S008 ee sEXPECTED Al 
+ ete HOV #1 of ipisse “sh feb hae BFE} fi fsa 181 ‘ 

Me i Boaus0 HOV a, “65 noe BF GTED Mee BS 

CK A 
737 o4N4ese JSR PC CHK ;CHECK MSGS PREP len int 
5c 1 RR ; E IVE CLEAR CMD 
& s St Eee 

53 1 OR ;MSG Bl 

23 RKDC(RS) 

12735 SH6RTe BOGE ARYA 

5 1 Jer 20 SEEK agi & GET CONTR READY 

BB 1 RROR Y AFTER SEEK CMD 

be Me goopmg cococoeatapsuens 

BE 7 *FLIM ;FIND LIMIT DETECT 

263 i 104160 ERROR 160 ; INIT DETECT NOF FOUND BEFORE TIMEOUT 
eee Ee es 040000 003350 Be ee 

RROR ; T ING AFTER LIMIT DETECT 

ee i l 021556 She By BMS Best be test 
5570 O21 1 1176 1S: MOV #20S, SESCAPE ESCAPE TO CYCLE UP DRIVE & TEST SWR 
5571 hates 615535 070140 nies MOV #<D.OSC!D.PIP!D. anya TD. VV!ID.DRA>,E.AO  ;EXPECTED AD 


ee 


8 


REI AEs == Bafa LR 1 seo 108 


3 3 fl i ssa OosHi6 OV ap ue at .CART!D.DOOR!D.BRHM!D. SSP> ,E.Al 


a 


; a 1, 162, 163, 164, <AF Aessack Ab BBA Bl’ ,0,0,0 


003400 Fe js Ha g Lednpids: vibes 9 of N Bl 


3S: JSR PC, TSTATN 


EGR ZBRBeTVoRR 





——— bb FF 





| 
| then bFScenn ee No CERR IN GSTATIN” 
PC, SUBCLR ; 
8 003362 a. Fio,r He ret 
ae ire : ice FOUND BEFORE TIMEOUT 
OT FOUND BEFORE TIMEOUT 


cossee HV flO Tere ate 
: ER pret 


ATTN NOT FOUND BEFORE TIMEOUT 
ma uc FLAG 


.DSC!0. SPIN!D .DRA>,E.AO ;EXPECTED MSG AD 
7 >,E.Al ;EXPECTED Al 
1,€.81 engke a D'MSG B1 


— 


y 1 Tf, 1? 17,77, 19,17, 7 
sae coped eel eee ee cael aoe eel eel came el eee ce ee ol cal Hering beplnetrebne dnt bnednrtn 
£ 


a me § 
SE Se nw 
oo5ees 
esas 
se of 

o : 

a 





64S: 


28 Beenes RSRSSS SRR 

= 

ty 

ay 

sai hat i 

=e 

Be 

gaan 2 32 

DpD R vw 


1 
1 allie. HERE 
i OF HEAD LOADING 
1 
1 ERROR 
: CWD2 85 176 <at END OF Head L > 
1 0 e765 oo0002 o00026 MOV #2, RKMRI (RS) ; 
1 7 045074 M PC’GSTAT : TATUS AND MR2,MR3 
1 7 001364 T £9 ABD ;RECAL UL ? 
1 C1401 Q 64S ?BRANCH IF SO 
: 1 ERROR SO ?REPORT ERROR 
921 
1 


000000 MOV 
OOleee 000010 MOV SUNIT, RK 





EZnse.PLl26-FaN-78 12:00 


SRST ESSER 


31358 


*.. 2°. * 2 = @= 
: UTD LEO foo 
te ee he 


bh he 


Gh D8BSES RIGRSSS NIE 


| ond aul aoe 


ce 82 3a¢ 


w 
~ 
£ 


Bison Bis 


AAU POD fron fo oT 


eee = le 


Pe 


at ous 
104154 
012737 010340 





047430 


021214 


MACY11 1052) 
39851052) FECT Ou 
003322 MOV 
. JSR 
ERROR 
66S: 
003412 Y 
003416 Vv 
003420 moy 
003424 Rov 
003430 MOV 
JSR 
ERROR 
RROR 
RROR 
JSR 
BR 
10S: CLR 
JMP 
20$: 
J 
ZRROR 
003322 
Ten 
ERROR 
003362 " Vv 
ERROR 
CLR 
187370 Bit 
JMP 


30$: 


OureR sah ee 10 


@CLEAR, HCS1 
DOCMD 


TSTATN 
1s4 


#020. SPIN!D.DRDY!D.VV!D. DRA? ,E AO 
<D SPOK!D. -cart#6. ste ta afieG, BO... ,E.Al 


fy Be 
#3,€.83 


FrAgrt Beto 
ce 


SWTST 
£435 


SESCAPE 
@SLPADR 


PC, SUBCLR 
e4 


Bartek baitcsi 


ial 


PeOPATTT 
67 


UNLD 
LPFLG 
#SW9, ISWR 


;00 DRIVE CLEAR CMD & GET CONTR RDY 
BSP raat ARNE SERRE 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


;EXPECTED MSG AOD 


FOR CTED'MSG 81 5 Stertipetien 
‘Expect 


ASG eye CTED MSG B2 
iMSG ID FOR EXPECTED MSG -B3 


138 & 3 fase fep HE 


DRIVE CLEAR CMD 


_ a = = 


igh ee ale 


;CERR AFTER SCLR 

;00 START SPINDLE CMD & GET CONTR RDY 
;RDY NOT FOUND AFTER ST SPIN CMD. 
iPeND A the 

;NO ATIN TRFTER ST SPIN CMD. 


fp RRA RRA RARE RRR EERE RE REAR R EEE EREE EERE ARAL RARRERA ERK EE 


SEQ 0110 


NN ee 


i a ee 


CZR6HEO UNIB 
Cc -Pll 


Me 


—— 


| od aed 


SSE f 


er 


BBV LoS. NOE ce Ow 


NN 


NOU CWE 


NNNNNNNNNNN 


QUO TU UT 
ROAD PRPCVUWOOD Pos Peawes We RR RA RAPA 
CO ed el el ee cd rd kd dd ed ad dd ed ed ak a ad od 


NNNNNNNNNNNANNANNNNN 


SORES CESK Bow Feteae BY BS GR Reesor 


US RK& OR PRT1 


2S-JAN-78 12:00 


z 


g558 
aa QooS 


= 

Ne 
aes 

8 

3 


8 


rr 
= bee ee 
Be 
| md aun 
fx 


MACY11 30A(10S2) 
Te3 


001174 


2S-JAN-78 12:08 PAGE 
BASIC WRITE/READ HEADER 


;#TEST 23 BASIC WRITE/READ 


QUE. 22 SECTOR FORMAT 


jaccsenngnengeaesannsssenaasenes 


t$t23 
Ry eather” 
TST LIMERR 
eee? 

SS: 
INC BADHDR 
CLR HEAD 


MOV @STACK, SP 
JSR PC, SUBCLR 
24 


SSB aGRECTRD, 
MOV 8-66. , RKWCCRS) 
an HEEB moncrs) 


MOV AD, RO 


noY TAO( RO), HDTAB 
v < >,HCS1 
Z DATCMD 
is 200 TAT 
T act ,HCS1 
BEQ 64 
Fee” | Aécie 
IMP $eoP 


64S: 


v #<0!D. SPIN!D. DRDY!D. VV!D.DRA> ,E.A0 
CCR e “BS Maitai iy MSG Be 
MOV #<D. SPOK!D. CART!0.DO0R!D. BRHM! 


MOV #1,€.61 
CLR ey 


11 
& HEAD SWITCHING TEST 
HEADER & HEAD SWITCHING TEST 


SATE. IRPToRRE OS UGPOSMALRHING Bick RS PUIRE HEP RERa nen 


I 


FOR see res ADERS 


I.E. TRACK O: 0’ 
Tease 2: Gri eGn’ AL SECTOR HEADERS. 


tAbStOnd SRR ATR 
;CHK FOR LIMIT ERROR 


’ 
3 

AT 
} ABOR BAL OF TESTS 


;USED FOR VALID HALT 
;HEAD CTR 


;RESTORE STK PTR 


;CERR AFTER SCLR 
:SET Ss INCR INHIBIT 
tSEADER ORS TAAL e 

;WORD COUNT. 

;SETUP HEAD ADOR 


;DOUBLE RO 
;SETUP HEADER WORD FOR RKBA 


;D0 DATA XFER CMD_& GET CONTR RDY 
;NO_RDY AFTER WRITE HEADER CMD 
;GET FRESH STATUS 


SRE ARITA OEE, 
;ABORT DRIVE 


page? 6282 
7 MS 10 FOR EXPE ED MSG Bl 
;EXPECTED MS 


;EXPECTED MSG AD 
;EXPECTED Al 


SEQ 0111 


25-JAN- 12:08 SEQ 0112 


OR_PRT fon. 
BASIC WRIT /RERO HEADE 


MACY11 (1052) ll 
3985 HEAD SWITCHING TEST 


& 0 UNIBUS RK 


-Pll 2S-JAN-78 12:00 





1 3424 MOV a ;MSG ID FOR EXPECTED MSG B2 
7a §55078 p1g333 aaa wtf BS 3430 MOV $5°E 63 :MSG ID FOR EXPECTED MSG B3 
74 737 o442s2 JSR PC, CHK CHECK MSGS A0,B0,A 
744 WORD Fe SBS 0 ; "ee maes Cet tep HERE 
: g 2 ine a0 E AFTER WRITE HEADER CMD 
74 1 RROR ; Al RR 
1 RROR 270 :MSG B1 ERROR 
z eg oo0026 MOV » RAR (RS) ;SELECT WORD 2 
* th 1362 ee reir SEE IF ts MSG A2=0 
+ t OR :MSG Ae ROT CLEARED AFTER WRITE HEADER CMD 
J 08, 001364 65S: Tot 00 i SEE i yf vee G B2=0 
3 1 aie ERROR + ASG B2 NOT CLEARED AFTER WRITE HEADER CMD 
901430 INC HEAD 
7 1430 000003 CMP HEAD, #3 
x 1254 BNE 1 
a6 005037 001430 CLR. : HEAD ;HEAD CTR 
¥, i 001100 MOV SSTACK, SP ;RESTORE STK PTR 
36 004737 o4s4e4 JSR PC, SUBCLR 
cas i ERROR 24 ;CERR AFTER SCLR 
77 
774 37 14 2s: SWAB HEAD 
758 14 oo0006 MOV HEAD , RKDACRS) ;SETUP HEAD ADDR 
N22140 Ol 74 SRHTAB, RO 
Nee 144 Bogbes 003322 HOV B<ROHEAD> CSI 
De 7 34 JSR PC CMD ;D0 para Ra R cn & GET CONTR RDY 
Dee ioe 100000 003322 It i RR, HCS1 ; 4 Pypprenchy 
= {bud YPE the 18 + CEORT FOAL ANCE ANCE AB MeperS CMO 
De bo01 pastes IMP $e + ABORT 
7 250 tes o8e08 67S: mov DB CRS). (RODS 1B wo F FROM SILO TO RHTAB 
1 16520 MOV RKOB(RS),(RO)+ ;3°RDO WORD 
73 
? & 100000 00010 BIT #OLT,RKCS2(RS) 
7; SEES BRTCES ee. 
5795 26 4737 O4SO74 ISR PC,GSTAT 





JO9 

































w 
— 


0 UNIBUS RK& OR PRT1 MACY11 30Q(10S2) 25-JAN-78 12:08 PAGE 113 SEQ 0113 
-JAN-78 12:00 T23 BASIC WRITE/READ HEADER & HEAD SWITCHING TEST 
104173 RROR 173 ; AFTER READ HEADER C 
056235 YPE MSG18 iBeORt ING BALANCE TEST 
1 2662 IMP $e0P ;ABOR 
68S: 
3 003412 Hoy a<O2D. .SPIN!D. DROYD. vw?! oe .AO ;EXPECTED MSG AD 
340 003416 MOV #<D. SPOK!D.CART!D ;EXPECTED Al 
3 003420 MOV a -Bl if 
1 3424 MOV #2,£.B2 fing 
oi 3430 MOV #3,£.83 :MSG ae 
o442S2 ISR PC, CHKMSG ; CHECK BO,Al 
, WORD T.A2!T.B2!0 : " 
1 1 ERR 1 ;MSG AO E AD HEADER CMD 
1042 ERROR 1 >MSG RR 
1 RROR :MSG Al RROR 
1 RROR 272 :MSG Bl 
oo0026 MOV a2, RKMR (RS) ;SELECT WORD 2 
7 JSR GsTA 
1362 TST eg? F oe IF Pf eee A2=0 
1 1 T CLEARED AFTER READ HEADER CMD 
“ae 001364 69S: TST 2 SEE IF, ee ves Be=0 
4 -_ BE RoR 4 !MSG B2 NOT CLEARED AFTER READ HEADER CMD 
Pass D014 "SWAB AD 
: 0014 oo00006 MOV AD,RKDA(RS)  ;RESTORE RKDA 
D82e 001430 SWAB AD 
| 5e3¢ 001674 MOV —s- #RHTAB, RI 
| 683 00144 CLR NT ;HEADER WORD COUNT 
28: D014 MOV Hy AD, RO 
383 001444 003360 HOV -BATAQCRO), TENP1 iGeT THE SHOULD BE’ DATA 
5836 001454 3S: MOV (R1)+, HOW ;READ HEADER WORD 
837 001454 003360 CMP Sage 
83s ERROR 2 ;READ HEADER MISMATCH 
DB4C poy 4S: NC WOCNT 
= n01442 o00003 CMP WOCNT, #3 ;D0 ONLY 1 SECTOR 
eeu 1 BNE 
Bead 35 BOty Me | CHEAD 
24 402 wis a SEO He tog 8 pA Eb FoCRXT NXT S BONE YES 
ee Bi? 022472 000137 O22122 IMP 2% i Pge Re REPEAT 
SByg9 g eee ee ETT TRITE READ HEADER TEST, ALL 1's, 20 SECTORS 
| 58s0 jATE BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 
{ 
| 





ee 


09 








CZR6HEO UNIBUS RK& OR PRT1 MACY11 30A(10S2) 25-JAN PAGE 1 SEQ 0114 
CZR6HE.P11 25-JAN-78 12:00 T24 BASIC ONT Te ReaD OFEADER Test; ALL 1°S, 20 SECTORS 
: ;% USING HEA TOR HEADERS BY WRITING ALL 
i 115 ASHE Ninel Tete e8 reeds ecflobe bo bel. VERIFY 
585 i FINDING O° ek "PRON THE 
: 57 « LEKERKESEEEKEEEKRERRERRRARRAREREREREREREKERRERRE RRR RRRARRRRERE 
BSE onine tét24: SCOPE TERAT 
3e Nov «STACK SP eee bed ERK AIR 
3 JSR PC, SUBCLR 
BE 0 fe #BAI , RK € RR Ass 8 LBACR INHIBIT 
586 atearer MOV agar ARBRE) tXFER 1° 2 ONLY 
BoE ooo002 MOV #-60., ;WORD COUN 
BES 003322 MOV #<CFMT! WRHEAD> , HC 
: JSR PC. DATCMD ‘ "BO TA XFER CMD & GET CONTR RDY 
: ERROR *NO_RDY AFTER WRITE HEADER CMD 
SR TAT 3GET FRESH STATUS 
: 003322 BIT ac ,HCS1 
: RROR fo ;CERR AFTER WRITE HEADER CMD 
: YPE 18 TING BAL OF TESTS 
: IMP $e : T DRIVE 
: 64S: 
BE 003322 MOV B<CPHT: pocns eM me :GET 20 SECTOR STATUS 
of 7 BEor ii? RY : ALTER SELDRV CMD 
588: : 001000 003350 IT 4D. FORM, HMR2 
ee 1 ie ERROR l2 ;FORMAT NOT SET AFTER WRITE HOR CMD 
022632 1S: 
003412 MOV #<0!D.SPIN!D. DRDY!D. vv! RA» , .AOD ;EXPECTED MSG AO 
14 CLR E. E BO jEXPECTED HSG 
44 7 16 MOV . SPOK!D.CART!D ' .SSP>,E.Al ;EXPECTED Al 
i 20 MOV $16.81 ee b FOR CTED’ NSC BL 
i : 0900s 003424 abv #2 1: et CTED MSG B2 
ee 2 Ol 003430 MOV #3, “BS 7 CTED MSG B3 
589 737 o44eSe2 JSR PC, CHKMSG AO, BL 4B 
, HORD odio 
i ERR 277 eR” iSite HEADER CMD 
2 10 1 7 ERROR 7 nee 
le 1 RROR 9 thse RROR 
2 149 1 ERROR : a RROR 
530s e748 005037 001400 = CLR SECNT ;SECTOR COUNT 
5 e722 104415 s SCOP1 
5907 022724 012706 001100 MOV wSTACK, SP ;RESTORE STK PTR 


———E 


SSR BG PET on 
cis BER ER OO 
91 

Beers here BlGtes 


Pee pee 
ONT UIT WW) 
foro 

5 


be a 
Ruy 
eo3 


iB Bibses fosees 
De 84 100000 
tr Beier 045074 
Rs 13} SeBEES 
304; 12737 1 1 
a ae ey BSS 
at aie: Ages 
02: 


prt 2 
See 
Rod 


aE EP 


Re NOneue Bro 


ne 
SF 
=NN 
ow 


a ta 


ee lb 


MACY11 aus? 


003322 


100000 003322 


000010 


oo00e6 


65S: 


6S: 


LOY 
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SEQ 0115 


BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 


Flom Suu 


;CERR AFTER SCLR 


v Heats ER LRDHEAD> “8 
deton Te Ro RV"aPTER Seo" vdhaeR tho *” 
bY Klee, HCS1 
a RSDR eat Sut "Oe SERRE 
IMP $e + ABORT BRIve 
v RKDB(RS), (RO)+ 'ST FROM SILO TO RHTAB 
MOV PKB (RS), (RO) 35RD WORD 
v (RS); (RO)+ 33°RD WORD 
T HOLT, RKCS2(RS) 
Pe GSTAT 
ROR 173 ;DLT AFTER READ HEADER C 
TYPE 18 *ABORTING BALANCE OF TESTS 
MP $e :ABORT DRIVE 
HOV #<CPHT!SELDRV> , ,HCS1 
2RROR its RS ge: AFTER SELDRV CMD 
BIT #0. FORM, HMR2 
E OR 3 ;FORMAT NOT SET AFTER READ HDR CMD 


MOV e !0.SPIN!D. OROvIP sees Bae 


;EXPECTED MSG AD 


ae 


MOV . SPOK!D. cans b Noss iF ;EXPECTED Al 
MOV a1 -Bl erie CTED’ Ace 151 

aby cape : T 

HOV a, ‘5 rie 

are Feast Be: 10 CHECK na SPeCtP TE D HERE 
ERROR x E it AB OHEADER CMD 
RR 1 imee BO 

ERROR 302 ine Al ERROR 

ERROR 272 MSG B1 ERROR 

Mov MRL CRS) eruect WORD 2 

J : ‘657A 

TST cy YEDI ; SEE IF MSG A2=0 

BEQ *BR IF YES 


CZR6HEO UNIBUS RK6 OR PRT1 
CZR6HE.P11 2S-JAN-78 12:00 


5964 0623174 
595 023176 


ae geaate 


ae 
ne 


SL I 


SoGob0000 


br 


WONTUE Wore 


104172 


12737 
012706 


B1e7e8 


012737 


00144 
D014 


MACY11 30A(10S2) 
Te4 


003360 
003360 


000003 


001174 


003412 


2S-JAN-78 12:08 PAGE 116 
BASIC WRITE/READ HEADER TEST; ALL 1°S, 20 SECTORS 


ERROR 172 ;MSG A2 NOT CLEARED AFTER READ HEADER CMD 
67S: TST CYLADD SEE IF MSG B2=0 
-_ FRgor a Bo" Ar CLEARED AFTER READ HEADER CMD 
7 MOV #PHTAB, R1 
3S: CLR WOCNT ;HEADER WORD COUNT 
- HOV DATAL, TEMP ;GET ” SHOULD BE’ DATA 
+ RS * ERE? iREQR ee 
BEQ 55 }BR IF YES 
- he fie ;READ HEADER MISMATCH 
: Ne Nt #3 ;JUST 1 SECTOR AND 1 HEAD 
BNE 
+ ERK SEEEEREKREEERRSRRRRRERERARRRRRRRRREERERRRR RARER RERKRRRREEE 
T WRITE & READ 
jATEST 25 WRITE & READ HEADERS CYL 0, HEAD O 
sgeses SCOPE 
MOV #1,STIMES : 1 ITERATION 
MOV aStack, SP ther ore STK PTR 
SUBCLR 
2RBor BG’ “ ;CERR AFTER SCLR 
INC BYPFMT ;SET BIT 14 8 1S IN HEADER 
T »; R WORD TABL 
Hoy ore afncene) tHBRD COUNT. anes 
v wpe :SET 
MOV ee 135 ait 
MOV ; HEADER 
JSR ERD TAB : TABL 
MOV #0, RKDC(RS) ;CYL# 
BH Pc Ba enD" — :D TA XFER C ONTR_RDY 
Hiion Fea 18S ROT ASTER GAPE SEER Ho 
SR GSTAT TATUS 
BIT acERR, HCS1 
ae sem ieg got MNce SEES 
MP 4238 $RBORT Dave 
64S: 
MOV #<0!0.SPIN!D. DRDY!D. VV!D.DRA>,E.AD ;EXPECTED MSG AD 
CLR E.B0 s EXPECTED MSG’ BO 


SEQ 0116 


EEO oe 


& 


0 UNIBUS 
-Pll 


ete 
rr£oO 


Wem: 


Matatatatatat 
pa 


<£ 


PP eReR rr aRE 
RRSERR BER 
Re Eee 


B88 RSE BR 
és 


R He 
& an 


Ree 


RRS 
8 
g§ 


Boo000 


iG) 
aS 
82 


= on 


-_ oOo oOo 
ae gr Fark MR A 
oe 


ooo 
bes Bs fee 
roo 


= 
Nooo 


ONT 


~_ 


8 


RB 12:00 


7 
4 


MACY11 30A(10S2) 
Tes 


Bos426 
B50 


55 


000020 
s 


003322 


003322 


000010 


003360 


6S$: 


66S: 


67S: 


68S: 


NOS 
WRITE & READ eR HEADERS’ CYL 8 Heao 0 
OMe 8 adds 


‘names 
t, T,AetT. B2!0 


ee? 
00 

270 

SECNT 
#STACK, SP 
PC, SUBCLR 
24 


#0, RKDC(RS) 
#RHTAB, RO 


#F AD,HCS1 
TCAD 


Hs HCS1 


a 


», (RO)+ 
3s é es 


wT maces) 


C,GSTAT 
173 

MSG18 
$eoP 


RO, #RHTAB+132. 
A 


PC, SORT 


WOCNT 
#SRTTAB, RO 
B,R1 


(RO)+, HDWD 
(R1)+. TEMPL 
HDWD, TEMP 1 


ihe 12 FOR 


; CHECK "ie 


1 ERROR 
ings B1 ERROR 


;SECTOR COUNT 


GTED Hee BS 


BO,Al 
13 ietth te D HERE np 


;RESTORE STK PTR 


;CERR AFTER SCLR 


;CYL # 


GET 
AD HEADER CMD 


R_ _CMD 
ESTS ‘ 


2" a eg FROM SILO TO RHTAB 


a IF DATA LATE 


;DATA LATE ON READ HEADER 
;ABORT BALANCE OF TESTS 


;ABORT DRIVE 


BR 1 aa WORDS DONE? 


;EXPECTED Al 


CONTR RDY 


iBEGIN Suit INTO SRT TAS SO THAT IT 
H SECTOR 0 


T CHEADER TABLE 
; ACTUAL HEAD TABLE 


;COMPARE ACTUAL WITH CALCULATED WORD 


SEQ 0117 


C 
Cc 


& 
3a 


eas 


PORK TO 
CSOWREOHS 


ee 


WONTU CW 


SBOVRR Lore 


LOKOOCK OCS CCST rs 
ee Be Be Be Be eB Be eee Be ee ee eee pee 


Ww 
_ 


0 UNIBUS RK6& DR _PRT1 
2S-JAN-78 12:00 


-Pll 


rae 
at 


R 
Ss 
oe 


To202 
2 
001361 


005037 


001442 
001442 


001464 


000102 


B10 


MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 118 

T2s WRITE & READ HEADERS CYL 0, HEAD O 

BEQ ;BR_ IF COMPARE 

ERROR 83s READ HEADER MISMATCH 
69S: INC WOCNT 

CMP WOCNT,, #66. sALL WORDS DONE? 

BNE :BR IF NO 

CLR BYPFMT ;ALLOW CORRECT FORMATTING 


001174 


fae Pawn 


ll 
003322 


003412 


S416 
3420 


ooo001 


[Penpegpenaneneeszecgscnsgecugeuserentesenenseceeseenwnannnccess 
EST 26 SEEK FROM CYL O TO AD HEADERS 


1s. As& 8B FOR CORRECT STATUS AFTER RDY 
STE TERT SEG ie Shek 
HE CYL 2 aad IS 1 
rate ATTN I ven i nd ey! ERRORS. 
mt reorey IFIED TO BE O & CYL ADDR 
iN TFT 


il HEAD O & VERIFIED THAT THEY ARE 
OER NT ERGH EYL SHOW THAT THE HEADS DID ACTUALLY MOVE. 


4-5-5 alead-1-+-+-+ ialellahehahaiabaialataiaiaiaiaialataiaiaiaiainiaiaiaiaiaiainiaininiciiaininisinicisisininininisiniaia 


os 


— SOO Oe See ws Se we eset we eee ws 


téT26: 
MOV TERAT on 
HOV ae ase heer ORE STK 
ERROR ;CERR AFTER SCLR 
MOV #1, tbe 
HOV a1 BrDECRSD. ;SET FOR CYL 1 
MOV HCS1 
JSR Pe bot ;00 SEEK EK CMD 8 GET CONTR READY 
nov Wy .PIP!D.SPIN!D W!D. DRAD . E.AD ;EXPECTED AO 
nov §:-FuD!D. SPOK:D.CART!D.DOORED. GRAND. SSP> €. A 
’ 
JSR PC, CHKMSG ; CHECK MSGS, a0 Al 
: T.A2!T.B2!0 sce oP Ose ete teD D HERE 
ERR 203 ;MSG AD bee ING GEER CMD 
ERROR 204 ;MSG BO ERROR 
ERROR B05 ?M5G Al ERROR 
ERROR :MSG Bl ERROR 
CHP CYLDIF, #1 


BE 1$ 
ERROR el ;CYL DIFF INCORRECT DURING SEEK CMD. 


a 


55 SaeRR ES 


OT 





PORE OO KEP OOO POPC OPO OOOO COSCO SPOOLS SSK SOO SOOO OSS KOT rrs 
PREW HOD VOU Loe VEE ORO Owe OTE Lahr ube OE 


ee ee me ee Be Be ee ee a ee be be pe be he eb be fb fb hh bh be fb he 


@o 
N 


by, 


IBUS RK& OR PRT1 MACY11 30A(1052) 25-JAN-78 12: 3 
ll 25-JAN-78 12:00 T26 SEEK FROM CYL 5 6 1 £ ReAG HEADERS a were 
024102 012737 O25006 001176 1S: MOV #12$, SESCAPE 
024116 013737 001422 003360 MOV T2s00, TEMP1 ;SETUP TIMEOUT 
‘ 
7 41 R PC, FATT F TTN 
Beales _— 2RROR Ss RON aT aN AFTER SEEK CMD 
i 3 100000 003322 BIT BCERR, ,HCS1 
eal rece wile PE RoR si8 ;CERR AFTER SEEK CMD 
136 O01 003412 #<D.DSC!D. SPIN!D. 'D.VV!D.DRA>,E.AQ ;EXPECTED MSG AD 
144 14 CLR E. hee 
iso Ol 17 003416 Vv 8<D.SPOK!D. crnt+B. 1D. BRHM!D.SSP>,€.Al ;EXPECTED Al 
Butea Besa 003420 nov #1,£.81 CTED'’MSG B1 
1 1 003424 MOV #2,€.B2 ‘xe 10 CTED MSG Be 
024176 012737 OO00003 003430 MOV #3,€.83 ;MSG ID FOR EXPECTED MSG B83 
7 o442se2 ISR PC, CHK ; CHECK 
g . WORD Feet BS to pacha 
le 1041 ERROR 133 AFTER SEEK Cho 
14 104134 ERROR 134 
1041 RROR 136 
! or 
001362 ST YLDIF 
1401 BEQ 65 
024230 104137 ERROR 137 ;CYL. DIFF NOT CLEARED AFTER SEEK CMD 
024232 65S: 
1 MOV SCCLR,RKCS1(RS) 
S35 1 1 eye MOV SUNIT RKC {Re} ;DRIVES 
tA 34 seonnanae : oR BE a Baa - D0 AR CMD & GET CONTR RDY 
A ERROR 131 PRIVEE SER DRIVE CLEAR CMD 
044012 JSR PC, TSTATN TEST FOR ATTN 
ges 104154 ban ERROR 154 anrme NOT CLEARED AFTER DRIVE CLEAR CMD 
oes 019340 003412 Moy a<Q2D. .SPIN!D. DRDY:D. 0. VVtD. DRA .DRA> ,£.A0 ;EXPECTED MSG AD 
12737 001720 16 MOV 8D. SPOK!D. can 6. ib 1D-SSP>, ,£-Al ;EXPECTED Al 
20 nov a Bl oF CTED’MSG B1 
1 D000C 4 V 2 E. ED TED MSG 
13535 Ba3430 MOV SS EBS i i FOR EXPECTED Nec BS 
7 044252 ISR PC, CHKMSG ; CHECK 
eae rane . WORD Fei 2!0 , SBS ORO Pk Pt ED HERE 
346 104273 ERROR 273 ;MSG 80 ERROR AFTER DRIVE CLEAR CMD 
024350 104265 ERR 265 :MSG Bg ERROR 
024352 104274 ERROR 274 ?MSG Al ERROR 


CZR6HEO UNIBUS RK6 DR PRT1 
2S-JAN-78 12:00 


CZR6HE .P11 
024354 


bevses 023727 


SPOS SSO 
oe ee he ee 
PRPSRELIE 
- 


Be SSE Cun uae 


bB43°8 
024374 
bi2708 


539 
a 


: 


ata meee 24 Re 2 


Ore 


104266 


18420? 


Tovae4 


1364 
1364 


MACY11 30A(10S2) 
Te6 


000010 


bt 803360 


003360 


es: 


675: 


68S: 


4S: 


D10 
o8 


25-JAN-78 12: PAGE 120 
SEEK FROM CYL O TO 1 & READ HEADERS 
ERROR 266 ;MSG B1 ERROR 
TST CYLADD 
CMP CYLADD, #1 
7 ;CYL ADDR INCORRECT AFTER SEEK CMD 
SCOP1 
MOV aSTACK, SP ;RESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24° ;CERR AFTER SCLR 
CLR SESCAPE 
MOV #1,RKDC(RS) ;CYL # 
Hoy eRHTAB RO 
Vv a< AD> .HCS1 
Z PC DATCMD’ ; D9 para XFER CMD 8 GET CONTR RDY 
REOR 171 ; Y AFTER READ HEADER CMD 
2 rn 
74 AFTER READ R CMD 
YPEYLMSG18 i OE RRT BALANCE OF TESTS 
IMP $e0P ABORT BRIVE 
MOV RKDB( ), (RO? ST FROM SILO TO RHTAB. 
MOV RKDB(RS); (RO)+ 2° \ 
MOV RKDB(RS);(RO)+ {$3°RD WORD 
BIT #OLT,RKCS2(RS) 
fee GSTAT 
18 SABORTING BALANCE TESTS 
IMP $e ;ABORT DRIVE 
Ist RHTAB ;CHECK 1’°ST WORD ONLY:CYL# 
ERROR 211 ;CYL O HEADER ON CYL 1 
MOV RHTAB, HDWD 
eid tee 
BEQ ug 
ERROR 202 ;READ CYL WORD HEADER ERROR 
JSR PC, SHTST ;SEE IF SW 14 OR @ IS SET 
‘A080 NEKe IF°S SW 14 IS SET OR 


;SW 8 WITH SWR <7:0> APPLY 


SEQ 0120 


UNIBUS RK6 DOR PRT1 MACY11 30A(10S2) 25-JAN-78 12: 121 
Pll 25-JAN-78 12:00 3786 SEER PROM EYL O10 1 REA HEADERS SEQ O12! 





geus7e 737 o4s4e4 6S: JSR PC, SUBCLR 
i RROR 24 ;CERR AFTER SCLR 
27 7 003322 MOV K,HCS1 
Dede0g bos? re JSR Pe, BOOHo 300 SEEK CMD & GET CONTR READY 
l2 104131 ERROR ial :NO ROY AFTER SEEK CMD. 
3 33 At — 4 A pi ;FIND_ATTN 
1 E 1 :NO ATTN AFTER SEEK CMD 
; 100000 003322 BIT #CERR,HCS1 
i 20 PRROR 2i sCERR AFTER SEEK CMD. 
geyeue 004737 o4s4e4 69S: ISR PC, SUBCLR 
46 1 ERROR 24 ;CERR AFTER SCLR 
003412 Hoy DSC!D.SPIN'D tD.0RA>, E.AO ;EXPECTED MSG AO 


16 MOV = 2 
20 MOV #1,€.61 $ 
CLR 4 


ppaues ney EE ge ann oT Tae 


DpeRteD’ née ;EXPECTED Al 








= 
? JSR PC, CHKMSG B0,Al 
. WORD T.A2!T.Be!0 “eg feat ieteh HEE HERE 
7 E 133 SEEK CMO 
7 RROR 1 
7 ERROR 135 ine 80 ES 
7 RROR 136 ?MSG B1 ERROR 
a 
i748 RROR 43 ;CYL ADDR IN RKMR3 NOT=RKDC 
744 7$: 
oa chi ee 
T LG 
4 BEQ 0S 
IMP aSLPERR ;SW 9 WAS SET. 
70S: MP @SLPADR :SW i4 OR 8 WAS SET 
766 108: 
€ 7 01410 INC LPFLG 
001 154140 BIT aSWS, ISWR ;LOOP ON ERROR? 
274 BNE 6 ?YES, RECONDITION DRIVE 
137 o24102 ee IMP 1 *RETURN TO MAINLINE 
37 001410 : INC LPFLG 
(i, ae ee ne. ee OOP OO CBNDTTION DRIVE 
, S32 b787 024374 IMP 8§ RETURN $5 MAINLINE 
6298 


ne tne 


CZR6HEO UNIBUS RK& DR PRTI 
-Pll 2S-JAN-78 12:00 


CZR6HE 


soeee 


NOUS WTR 


1 
1 
1 
1 
1 
1 
1 
1 


4 
6355 








Bre tas poe te ee See 
2 23% 


£ 


| al aed 


o44ese 


001400 
001100 
o4s4e4 


MACY11 30A(10S2) 2S-JAN-78 1 
Te6 


001174 


2:08 PAGE 122 
SEEK FROM CYL O TO 1 & READ HEADERS 


jp Se RE AE aE AE A ae a a a aa aa a a a aaa aa 
;*#TEST 27 T cYL 1 


ME TTCTTOT TTT TTT TTT TTT TTT TET ETT TTT TT TT TT TTT TTTe TT TT TTT TTT TTT Ty 
VStar: OPE crs 1_ ITERATION 

MOV setack SP aos STK PTR 

JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 


;SET BIT 14 8 15 IN HEADER 


MOV SHDTAB, RKBACRS) ;HEADER WORD TABLE 
MOV #66 RKWC(RS) WORD COUNT. 





Vv T ALADD SET 
HOY wo. MEAS 135 ILL 
MOV 80, FORNAT ?HEADER 
JSR * FHDTAB ; TABLE 
MOV #1, RKDC(RS) ;CYL® 
MOV a< AD> , HCS1 
JSR Be ‘Ba FCRO" ;D0 DATA XFER CMD & GET CONTR ROY 
ERROR :NO_RDY AFTER WRITE HEADER CMD 
isk TAT :GET FRESH STATUS 
IT 3 ,HCS1 
RROR sCERR AFTER WRIT R CMD 
FRO MSG18 ; ABORT ING BALANC OF OES Ts 
IMP $e0P SABORT DRIVE 
64S: 
MOV #020. SPIN!D. DROY! ;EXPECTED MSG AO 
CLR E. -E 
MOV #<D. SPOK!D.CART!0. -Al ;EXPECTED Al 
MOV #1,€.B1 ; Bl 
cbt F rf B2 
MOV a3°E: B5 mec MSG B3 
JSR PC, CHKMSG ; CHE 
T.A2!T.B2!0 D HER 
ERROR 277 ;MSG E HEADER CMD 
ERROR 267 >MSG 
ERROR 300 :MSG 
ERROR 0 :MSG Bl 
CLR. , SECNT ;SECTOR COUNT 
MOV #STACK, SP ;RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 


SEQ 0122 


CZR6HEO UNIBUS RK& DR PR 
CZR6HE.P11 


eee 


SiaRAIERSOE So aERERGS asa 


6400 


PILE ED ie 


012765 
012700 


2S-JAN-78 12: 00 


001464 


MACY11 30A( 1052) 
Te? 


000010 


003360 


000102 


65S: 


66S: 


67S: 


68S: 


fkTE 
3% 
3% 
;# 
;% 


25-JAN-78 12: 
WRITE & READ HEADERS CYL 
MOV #1,RKOC(RS) 
MOV SRHTAB, RO 
MOV #PDHEAD, HCS1 
JSR PC, GATCMD 
ERROR 17) csi 

Q egg ‘ 

ERROR 174 

TYPE 18 

IMP $e 

ney RuBBCRS) (R033 
MOV AKpBs fe}! (RO)+ 
BIT sOLT, »RKCS2(RS) 
FER Bc GSTAT 
ERROR 173 

TYPE 18 

IMP $e 

CMP RO, #RHTAB+132. 
BNE 6s$ 

JSR PC, SORT 

CLR NT 

v wr 198 ako 
MOV 
MOV (RO)+ 
MOV (R1)+° TEMPL 
CMP HOWD, TEMP 1 
BEQ 695 
ERROR 202 
INC WOCNT 
CMP WDCNT, #66. 

BNE 68S 
CLR BYPFMT 


qurs T 
Ever 


G10 
os 


PAGE 


1 
1, HEAD O 


;CYL # 


;D0 READ HEADER CMD & GET CONTR RDY 
;NO RDY AFTER READ HEADER CMD 


iC EORTING BALANCE OF TESTS — 
+ ABORT Dave 

;1°ST WORD FROM SILO TO RHTAB 
is WOR 

;SEE IF DATA LATE 


;DATA_LATE ON READ HEADER 
: Guice OF TESTS 
J 


;ALL 66 WORDS DONE? 
;BR IF NO 


iBeGINS WITH 


TUAL CHEADER TABLE 
ee HEADER TABLE 


NTR aR one SO THAT IT 


‘GR IFC ACTUAL WITH CALCULATED WORD 
;READ HEADER MISMATCH 


;ALL_WORDS DONE? 
;BR IF NO 


;ALLOW CORRECT FORMATTING 


Ms alla, a ESS ag TE gh 4 at fal 1+ tail 51+ 1 alee 
T 30 TEST & READ HEADERS 


RECALIBRATE CMD 


VERWRITE C 


FI cs Thar HRTTING REBDERS, On ON coE 1 are OM THE PREVIOUS 
HEADERS. 


aN SE RROR tN "TRIS TEST INDICATES THAT HEADS: 


SEQ 0123 


fort gh — RK6 DR PRT1 
CZR6HE . P 


2S-JAN-78 12:00 





MACY11 30A(10S2) e2S-JAN-78 12 
T30 T 


001174 


001176 
003360 


003322 


003412 


003416 
003420 


003424 


H10 


a PAGE 124 SEQ 0124 


TEST RECALIBRATE CMO & READ HEADERS 


$ & 
# 
tx A. C TO @ CYL OTHER THAN 1 
i OR B. Be Rot GET Back ort 
ae RKEKAAKAKRSAAKAKAKASSKRKARASERARASSAKSARARRESRARRRLEAAEERRAAAKRKRRR RES 
18130: aso gi srt 1_ITERAT 
MOV Hoe ae ak herded ERR Boh 
ZRROR  peaeatees AFTER SCLR 
MOV #1, FRCYL iene eRe 
CLR Tot iF 
gi IF + ERROR TYPEOUTS 
MOV 81 APE 
ey BRECAL HCSI Cc GET CONTR RDY 
E 1 ino REAL PR Fe eaL CMD 
MOV CLR, RKCS1(RS) 
MOV #1 RKAR (RS) ;SELECT WORD 1 
Bi ' DS aes 
ERROR 307 ;RTZ NOT SET DURING RECAL CMD 
1S: Moy aD. .PIP!D.SPIN!D.VV!D.DRA>,£.AO ;EXPECTED AO 
MOV #<D.RTZ!D. REV!D. SPOK!D. CART!D. DOOR!D.BRHM!D.SSP>,E.Al 
MOV #1,€.81 
JSR PC , CHKMSG ;CHECK MSGS _AD,B0,AL +21 
eneR  Bifeo Ra Ree "ERG 
RROR 14 
RROR iS fe B3 
RROR 16 :MSG Bl 
; ST YLDIF 
; ERROR 17 ;CYL DIFF INCORRECT DURING RECAL CMD. 
2s: MOV #12$, SESCAPE , 
MOV #-1 tenei ; SETUP ql MeouT 
BBfon EErfATte hd arfh 
OR TTN AFTER RECAL CMD 
BIT #CERR,HCS1 
- ERROR 220 ;CERR AFTER RECAL CMD 
mov a< Q.DSC!D. .SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
MOV #<D. SPOK!D. carT?6.9 :BRHM! .SSP>,E.A sEXPECTED Al 
MOV #1,£.81 “10, FoR REXPECTED’ ASG Bl 
CLR E.Ae ated ED 
MOV #2,£.B82 :MSG ID FOR EXPECTED MSG B2 


ESREHE. 


SEB SRR 


6 
6 
6 
3 
6 
6 
6 
6 
6 
is 
6 
6 
6 
6 


CORK K Ko 
POU 

rv hb bb be ee 
wre NOU SWE 





0 UNIBUS RK 


Pil 


012737 
7. 


— 


= 
£NN 
PEARS 


=z 
ow 


tee 


_ 


N 
8 


| oan anal anel 


~ 

— 
—¥- 
ZR 


PRT1 


oe Fane7e 12:00 


000003 


o44ese 


MACY11 — 


003430 


oo00e6 


003322 


003322 


66S: 


4S: 


25-JAN-78 12:08 PAGE 125 

TEST RECALIBRATE CMD & READ HEADERS 

MOV #3,€.83 ;MSG ID FOR EXPECTED MSG B3 

ISR PC, CHKMSG | ;CHECK MSGS A0,B0,Al 81 

,HORD T.A2!T.B2!0 g Mocs SPECIEI ED HERE 

ERR gel ine g bea CMD 
ERROR BoB FROR 

ERROR Sse nee Bt 

MOV #2, RKMR1 (RS) ;SELECT WORD 2 

fe coir" c JF rea aco 

3E0 ove Be if YE % 

RROR 47 :MSG 92 NOT LEARED AFTER RECAL CMD 
ST CYLADD >SEE IF 

BEQ 65 :BR IF 

ERROR SO :MSG B2 NOT CLEARED AFTER RECAL CMD 
MOV #CCLR, RKCS1(RS) 

MOV SUNIT; RKCS2(RS) pha 

MOV SCLEAR, HCS1 

JSR VE_CL AR CMD & GET CONTR RDY 
ERROR ist i DRIVE CLEAR CMD 

Jor PC ,TSTATN TEST Fone ATTN 

ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
mov 8<0! 'D. SPINIC. DRDY!D. vv! .AO ;EXPECTED MSG AD 
MOV #<D. SPOK!D.CART! 6, ; 
nov a Bl be EFE0' fi Asc Bl 
MOV #2,E. cT 

HOV a, “BS ee Bp or GTED Msc BS 
JSR PC CHKNSG, ;CHECK MSGS AD, 80,01 Ble 

ERROR Ther. 7E BC PETED IVE 

RROR Ee mee BO RROR 

RROR 74 ins¢ Al ERROR 

RROR 266 MSG Bl ERROR 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR SESCAPE 
MOV 
MOV BCROHEADS HCS1 
JSR PC ;D0 DATA XFER CMD & GET CONTR RDY 
ERROR ice ?NO RDY AFTER READ HEADER CMD 

IT ac RR,HCS1 
ERROR ona ;CERR AFTER READ HEADER CMD 





SEQ 0125 


;EXPECTED Al 








Cc O UNIBUS RK& OR PRT MACY11 30A(10S2) 2S5-JAN-78 12: PAGE 126 
CSREHE P Tn oe fane7e 12:00 T30 TEST RECAL TBRATE CMD & READ HEADERS — oo 
6524 401 OS6235 TYPE MSG18 ;ABORT BALANCE OF TESTS 
ease pSesss attra 042662 IMP $eoP :ABORT DRIVE 
6 67S MOV RKDBCRE), ¢ + 4; ST WORD FROM SILO TO RHTAB 
RKDB(RS),(RO)+ ;2°ND WORD 
6 MOV RKDB(RS);(RO)+ $3°RD WORD 
000010 BIT T,RKCS2(RS) 
6 BEQ 
JSR GSTAT 
6 ERROR ;DLT AFTER READ HEADER CMD 
YP G18 ;ABORTING BALANCE OF TESTS 
6 IMP $eoP :ABORT DRIVE 
e 68S: 
40 000001 cNe RHTAB, #1 ;CHECK WORD 0, CYL # ONLY 
6 2 RROR 240 ;CYL 1 HEADERS ON CYL O 
6544 : ss TST RHTAB 
6 BEG $s 
4 - RROR 02 ;READ CYL WORD HEADER ERROR 
BS ; JSR PC, SWTST ;SEE F Si. a8 IS SET 
bec - Tst31 an 14 IS SET OR 
65 oh 8 i nF :0> APPLY 
65 8S: JSR PC, SUBCLR 
65 ERROR 24 :CERR BF TER SCLR 
68 4 000020 MOV #1,RKDC(RS) : RECONDITION K TO CYL 1 
6 003322 MOV ® HCS1 
pees ISR Pc ESeho ;D0 SEEK CMD 8 GET CONTR READY 
bess ERROR :NO ROY AFTER SEEK CMD. 
6 003360 MOV T TEMP1 
& JSR peararte ;FIND_A 
RROR >NO Brin THETER SEEK CMD 
003322 IT RR,HCS1 
6564 Q 595 
ce OR ;CERR AFTER SEEK CMD. 
69S: R PC, SUBCLR 
: ZRROR 24’ ;CERR AFTER SCLR 
a 
7 4 003412 MOV #<0!D.SPIN!D.DRDY!D. eu ;EXPECTED MSG AO 
e 7 4 ee tty CLR E. BA ;ERPECTED 
6574 7 90341 MOV aD. SPOK!D. cart:6. eecthh ;EXPECTED Al 
6 7 i 2 MOV 8 Eb" fsa: Bl 
e 7 i 24 fi , cM ee iEXeet CTED MSG B 
6578 seri 12737 3430 MOV XPECTED MSG B5 
6579 012737 000022 003424 MOV sbi Tui2>, E.B2 noe ED ORSe Be He D FOR CYL 1 





en: ek at 


CZREHEO UNIBUS RK& OR PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 127 SEQ 0127 
¢ Pil 25-JAN-78 12:00 T30 TEST RECALIBRATE CMD & READ HEADERS 
| 6580 
ISR PC, CHKMSG sCHECK MSGS AD,B0,A1,81 
| £ : Fe et BS 10 : ie sas SPECIFIED HERE 
RR 133 ; AFTER SEEK CMD 
| RROR 1 :M5G RROR 
RROR 1 :MSG Al ERROR 
bb8B ERROR 136 3MSG Bl ERROR 
6 oo0001 che “geen 
e a BER oR 4 ;CYL ADDR IN RKMR3 NOT=RKDC 
: CLR Cc 
6 TST LG 
6 fe 205 an ;SW 9 WAS SET. 
b5 708: IMP @SLPADR :SW i4 OR 8 WAS SET 
: LPFLG 
34 see BY EiRose stow a ere 
65 BNE Bs ?YES, RECONDITION DRIVE 
= IMP $ ?RETURN TO MAINLINE 
, INC LPFLG 
| 152344 IT , aSWR 3L RROR? 


Eeetnncees 


4 ATEST 31 SINGLE INCREMENT SEEKS TO LAST CYL 
is THIS TEST DOE INCREMENT SEEKS OUT TO THE LAST CYL 
661 a Wi tHOUT ANY ERI TING OR READING sé. Ee NOT TO INADVERTENTLY 
661 ; is DESTROY DATA. 
661 MVTTTOTC TTT TT TTT TTT TTT TT tt TTT tT Tt tii ttttittiitttitititititi yy 
Pele ? 001174 Stak: Aoy #1.$TI TERAT 
sic ferris Glare BREA Ri EARLIER aBSibed SRE 
661 737 o4s4e4 R PC, SUBCLR 
65 OR ;CERR AFTER SCLR 
001350 LR RCYL FROM CYL 
G26630 012737 900001 001352 MOV 
12737 000001 001360 MOV 
4 104415 oe SCOP1 
026646 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
Gebb5e 004737 OYSYeN JSR PC, SUBCLR 
1 ERROR 24 ;CERR AFTER SCLR 
12737 027442 001176 Mov #10$, SESCAPE 
boas pSeeEe i 765 ated ete MOV fact SRRDC (RS) ;CYL TO SEEK TO 
6634 74 012737 000017 003322 MOV #SEEK.HCS1 
6635 Oe6702 004737 043434 ISR PC, DOCMD ;D0 SEEK CMD & GET CONTR READY 


| 
| 
! 
| 
#1, reer 370 CYL 
#1,CALDIF ;CALCULATED DIFF. 
! 


- 
| 
| 
| 
| 


C 0 yuteus Bxe o 
ERene. Pit 


Prone 
Oba 


ie Gee 
2 


ees 
bate pete 


me 


RSR 
gees 


oo 
— 


SSRGRRORRERSS Uc voercobeRE EER RonGReE 


aeRaeee 


ae 
QE SRREE 


Se 
2oeve 
2 


78"12:00 


MACY11 a 


003412 


86806: 803428 


wreses 
Rae 
ong 
88 
a 
8 
‘ 


001362 


: 


043434 
044012 


NEN 


atta 
003322 


64S: 


65S: 


66S: 


L10 : 
SINGLE INCREMENT SEEKS TO CAST CYL SEQ o128 


M7, ;NO ROY AFTER SEEK CMD 
.PIP!D.SPIN!D.VV!D.DRA>,E.AO ;EXPECTED AO 


#<D. FWD!D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>,E.Al 
ac0.FuO! - 


T,Aett Beto er "is, macs, SPECIE TED HERE 
DURING SEEK CMD 


spor #1 
12 ;CYL DIFF INCORRECT DURING SEEK 
€ CAPE 
Esme ;SETUP TIMEOUT 

FATT2 sFIND ATTN 

NO RT TN AFTER SEEK CMD 

BCERR,HCS1 
210 ;CERR AFTER SEEK CMD 

#<.DSC!D. .SPIN!D. Sie ,E.AO ;EXPECTED MSG AD 
eB SPOK!D. oa HB SsP>, ,E.Al ;EXPECTED Al 
a E.Bi 8 ED'MSG B1 
GaNe po weet be CTED MSG B2 
#3,£.83 fe: ID FOR EXPECTED MSG B3 
PC, CHK ; CHECK 
Fe eS 0 BS ee tere tPteD HERE 
133 3MSG AO ERROR AFTER SEEK CMO 
1 6 RROR 
1 RROR 
1 :MSG Bi ERROR 
CYLOIF 
e33 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
#CCLR, » BKCS1(RS) 
SUNIT{RKCS2(RS) ;DRIVES 
aclenn i “es ;D0 DRIV & GET CONTR RDY 
fg 00¢ a8 pay BrTER 0 Bai CLEAR CMD 
PC, TSTATN ITEST FOR ATT 
b6S ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


CZR6HEO UNIBUS RK6& DR PRT 
CZR6HE.P1i1 78 


2S-JAN- 


Soule 
a 


2 bo do ee 
Edi P st ie 
pe S 
oo o 
Oo 


| coed au ened gel aoe eel ae 


COOOL Crrr 
DOD NCU £ WU 
& fe ‘ 
% 
2c + 


NNNNNNNNNNNN 


COrn 


731 
1 
$ 027316 
67 Oer sae 
67 


012737 


bisa 


1 
1 


7. 


a 
ne 
ae 
ne 


ats 


poov7s 


1O4024 


013765 
012737 


1 
12:00 


o4s4e4 


MACY11 30A( 1052) 
T31 


003412 


883488 
Bos450 


001352 


0120S4 


000020 
003322 


003360 


003322 


3$: 


4S: 


6S: 


67S: 


69S: 


M10 


25-JAN-78 


12:08 PAGE 129 
SINGLE INCREMENT SEEKS TO LAST CYL 


#<0!D.SPIN!D.DRDY!D.VV!0.DRA> ,E.AO 


"ea ce al, 


YLADD, TOCYL 
i 
(oer. ,L6 
FRCYL 


i. 
4 
1 


PC, SWTST 
Pé+3h 


PC, SUBCLR 
24 


TOCYL, RKDC(RS) 
#SEEK,HCS1 

PC DOémD 

13] 


TSOO00, TEMP1 
PC. FaTt2 


1 

13 e an, HCS1 
693 

210 

PC, SUBCLR 
e4 


ry SEQ 0129 
*. 


;EXPECTED MSG AD és 
;EXPECTED Al 


Rise 1p D POR EXPE CTED ae Es 
BF XPECTED MSG BS 


CnEen MSGS ite 80, Al, B1 
ECIFIED HE 


es 68 freee Of RFTER OR DRIVE CLEAR CHD 


;MSG Bl ERROR 


;CYL ADDR IN RKMR2@ NOT=RKDC 
;LAST CYL DONE? 

R IF 
BRE DO ANOTHER 


;8R IF YES 


a8 IS SET 
BH 1 IS SET OR 
APPLY 


F Su 4 
: x 
fe URN RE I 
3S Ww 8 


“4 


WITH SWR < 


;CERR AFTER SCRL 
;CYL# 


RO BEEK crs fen Ken me READY 


;FIND_ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR 


Sn r= sepsis — 





10 


CZR6HEO UNIBUS RK MACY11 30A(10S2) 25-JAN-78 12:08 130 
CZR6HE.P11 - ane7e BT i3: :00 73i SINGLE INCREMENT SEEKS TO LAST CYL — Sie 
6 374 3737 001352 oo0000 CMP TOCYL,O ;LAST CYL DONE? 
674 rue 14 BEQ 6 F YES 
& 74 001352 DEC TOCYL ;ELSE DO ANOTHER 
b 7410 2 BR 675 
e 027412 737 o4s424 68S: ISR PC, SUBCLR 
b754 027416 104024 ERROR 24 ;CERR AFTER SCLR 
& 001176 CLR SESCAPE 
He RR Be wi ee 
6759 74 000177 1514S2 IMP aSLPERR ;SW 9 WAS SET. 
B70 8534 000177 151444 70S: JMP JSLPADR :SW i4 OR 8 WAS SET 
e 
6764 744, 10S: 
B76 pate 237 001410 INC LPFLG 
67 eae z 001000 151464 gir asi , ISWR ib ERR OR? oy — 
oe ouee i343 026766 one 23 Nee init $8 RAINES 
6 12S: 
0 ee ae 
677. 74 1305 BNE ge", :bpgP RECBROT TION DRIVE 
peed 000137 027302 IMP 4g ;RETURN TO MAINLINE 
6776 ; sRERAKLERHRKRE SEE KEKE RAK KE RE SRE KES YKEMES VO SBREKKEAKAREXARYKEKERRES 
Me : j ATEST 32 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
677 * i HIS Ti F THAT 456 FOR RKO7), TRACK 2 CAN BE READ. 
£780 is THES a Conta the BAB a Ne te WHICH 1s > BITTEN BY fu wn 
6782 if Ai Tok ne fo MAS MASK FUTG HEADER RY on Bata HAROR PRINTOUTS. 
6784 + T 8 CONTA cA FOR 22 SECTOR HARDWARE DETECTED FOR BAD 
6785 i SECTORS ¢ toe 12’ fa 16, 18, 44 “ek wh CAL 1hFo FOR 22 SECTOR SOFTWARE DETECTED 
6787 + Bn at ING THE BSE INFO 
6788 3% it ws erER NED NED THAT BH a GaMENT C can Tri IS USED, 
£58G + FUT nO” READ “URI TS WIL YPASSED. 
| if THIS IS DONE SO sea, suf a oR AR ALIGNMENT PACK BY WRITING 
£733 i THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 
736 is THIS IS THE FIRST TEST WHERE THE READ DATA CMD IS PERFORMED 
oF apcsoe oo0004 ; FS alt -5+-llahalalahellahlaeltaeidahineiheeineheineilaihaiiaeieiinieiieeiieiiniiia 
67 7504 012737 OO00001 001174 MOV #1, STIMES : TERAT ON 
800 pSser2 12706 001100 MOV SSthce SP ‘APS TORE ERR 
68 027516 004737 oO4S4e4 : JSR PC, SUBCLR 
6803 027522 104024 ERROR 24 ;CERR AFTER SCLR 


—— -——-— —- ee - sna ae 


cenere’ UNIBUS RK& DR PRT MACY11 30A(10S2) 2@5-JAN-78 els 82 PAGE 1 
Cc -Pll 2S-JAN-78 12:00 T32 READ & SAVE CTOR INFO & TYPE PACK SERIAL # 


Sra) OSG BRaRES ah TEE SEI SET%e sencuone 
4 CLR TEMP ; SECTOR peTEcTER TABL 
; 1=ee SECTOR SOFTWARE DETECTED TABL 


366 MOV SBSE22H, TEMPY eT ORe 22 SECTOR HARDWARE BSE INFO 
1 70 HOV TEHPd » RKBACRS) TRACK 2, SECTOR 0 
MOV inp: : . 
L 





i0 
13 RKDACRS) 
1 0 1S: MOV C, RKDC(RS) ;LAST CYL 
14 MOV s- RKWC(RS) LOAD WORD CT 
1 2 MOV TA,HCS1 
1 7 JSR PC, DATCMD ;00 COMMAND 
1 ERROR eet ?NO_RDY AFTER READ DATA CMD 
18 045074 ISR GSTAT 3GET FRESH STATUS 
1 100000 003322 BIT aCERA,HCS1 
ERROR 27 ;CERR AFTER READ DATA CMD 







AO ;EXPECTED MSG AD 


.SSP>,E.Al ;EXPECTED Al 
CTED MSG B1 


Beai8 003412 Hoy 8020. SPIN!D. DROY2D EPs hac” 
i750 003416 MOV § BO nox 1p. cARTIO HOGA? : BRHM 
1 20 Hoy eae o. iBbet eb 
33 0C~<C‘iR ea 18 FoR 
me Glan TOSS? PURSE. MS9E.0P100-Ala@ 


aie as at ER READ DATA CMD 


ERROR 11 2M5G Al OR 
ERROR 145 ; Nee Bl ERROR 
o4s4e4 JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SUBCLR 

INC TEMP 
necks ooo00s cue TENPe, 8S ;READ ALL S SECTORS? 
003364 TST TEMP3 

ERROR 833 ;CANT READ SECTORS 0,2,4,6,8 

2s: ERROR g30 ;CANT READ SECTORS 10, 12,14,16,18,20 

003366 o00004 SS: MOV TEMP4Y,RKBA(RS) ;RESTORE TABLE ADDR 
go000e 003370 ADD #2, TEES ‘SETUP TO READ 2 SECTORS FROM LAST 
003370 000006 Mov TE , RKDACRS) 
001456 3S: INC BSERR ;SET BSE FLAG 

BR TST33 ?;GO TO NEXT TEST 


002312 8S: TST BSE22H+6 ; TEST CARTRIDGE TYPE 


gi SEQ 0131 


CoREHE PL oe fare ie:00 | OYE! S0B{10S2) ER a Cave senor gta TYPE PACK SERIAL # =58 Gize 





030014 001404 BEO og H IF F DATA CARTRIDGE 
is B2eRr iB LchtEN ERROR E Lage 
ih 2 
nov sBSEC2S reves, ;STORE 22 SECTOR SOFTWARE BSE ADDR 
By r » BABS ; TRACK 2, SECTOR 12 
MOV T + RKDACRS) 
JMP 1s ;REPEAT - 

4 10S: TST 
tk sted 1014 BNE #€ 933 ;;GO TO NEXT TST IF NOT 1’°ST PASS 
TYP cane :CART SERIAL # 


’ ; CONVERT - ? BINARY WORD TO OCTAL 


Banisg Teavoi Boiebs i ‘eer {TYPE SERI 


FES EISER St PeaReyaR tai ide 


: ee a ee Ge ee 
j ATEST 33 DETECT INNER LIMI 
ti "Hoe T 
i iF ise ti 4 i eaten PA LIST eae tS ADJACENT CYL. 
;# mats WERE NOT ON THE LAST CYL 
+ 
3% "BVOID, a Se NT_CARTRIDGE 
i fet LIMIT Pa soe OBLEM. 
nan 1 ; Wah, IPs meet dition a eeeaneend A 
03014 001 001174 * #1, STIMES ITERATION 
030150 012706 00110 MOV astack, SP theo TORE STK PTR 
& 0301 737 o4s4e4 JSR PC, SUBCLR AR & GET STATUS 
e 03 btéo OBdoe4 ERROR 24 ICE Var TER SCLR 
030 4 LR PF 
e sett 4 nied hegtesd fhe BOPKERR ;BYPASS CHECKING FOR ANY CERR IN GSTATI 
6305 0301 005237 003304 INC UNLD *USED FOR VALID HALT 
76 : MOV #PAT,RKMRI(RS) ;PARITY & WORD O 
MOV Lon RKDC (RS) 
le Ol 1 MOV SSEEK.HCS1 
6910 030 004737 043434 JSR PC, DOCMD SEEK CMD 8 GET CONTR READY 
balk 0306 4 RROR ie? RDY FROM SEEK WITH BAD PARITY 
030 044012 TSTATN rest FOR N 
p33 LO41es ERROR 125 je TN FROM SEEK WITH BAD PARITY 
14 2 050340 003412 MOV #<D.0SC!D. SPIN!D’DROY!D.VV!D.DRA>,E.AQ ;EXPECTED AO 
6915 030242 012737 001200 O03414 MOV #<D.FLT!D.PAR> ,£.B0 


10$ 
9$: INC TEMPS 
CMP TEMPS, #1 


CZR6HEO UNIBUS RKE6 DR PRT1 
' CZ2R6HE.P11 2S-JAN-78 12:00 


b3i5 38582 81853> BBL06? 


o44es2 





MACY11 30A(10S2) 
T33 


Bos4e6 


000020 
003322 


2S-JAN-78 12: 
DETECT INNER LIMIT 


MOV 


#<D.SPOK!D.CART!D.DOOR!0.BRHM!D.SSP>,E.Al 


#1,€.B1 
Brofas* iE’RScs"seecir AEB He te WITH BAD PARITY 
tu ee BY Fanon 
lu? 3MSG B1 ERROR 


Snir: Brees {Re} ;DRIVES 
a 
Zl tRS RBS’ ReFER Baie ELGAR EADT® ROY 


1 
PC, TSTATN ; TEST FOR ATTN 

$ ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
80/0. SPIN!D. ORDY ED VY tD, ORO? + Bare ;EXPECTED MSG AO 


#<D. SPOK!D.CART!O. 


e562 : UES EegED an ;EXPECTED Al 
$376.83 inee 1B FOR EXPECTED MSG BS 

glee 0 0 rete tetep CLEAR CMD 

#6 nbs Bi EReoR 


LC, RKDC(RS) 


ee Bone EK & GET CONTR READY 

i131 RO BBS AFTER SEEK CMD 

accLe +Raesi (RS) 

PC‘ FLIM sFIND LIMIT DETECT 

166 ; er betect Noy FOUND BEFORE TIMEOUT 
; DRIVE NOT UNLOADING AFTER LIMIT DETECT 

308 ;BYPASS REST OF TEST 

#20S , SESCAPE sMUST ESCAPE TO CYCLE UP DRIVE 8 TEST SWR 

#<D.05C#0. PIPED SPIN!D.VV!D.DRA>,E.AO  ;EXPECTED AO 

#<0.SKI‘'D.FLT>,E. 

#<D- UND? 0. REV1D: SPOK2D. CART!D.DOOR!D. BRHM!D. SSP» ,E. Al 

#<D.LIMD'D.NMOV! i> c. 

161, 162, 163, 164, “AFTER INNER LIMIT DETECT> 0,0,0 


08 PAGE 133 SEQ 0133 


SRE SEL MEH SION HEIN AE PE 1 sen 01m 


737 o44e252 , JSR PC ACHKNSG ;CHECK MESSAGE AD,B0,A1,81 
1 ERROR 161 ;MAY RROR 
1 RROR 1 ;MAY 
ERROR 1 ;MAY 1, “ 
: o20000 003400 Bir #0.LIMD,H. Bl SEE TF ry sete et yal SET IN Bl 
: ‘ 1 061235 TYPE ee ;OTHERWI PORT ERROR 
737 o44ole 3s ISR PC, TSTATN 
ERROR ies ;NO ATTN pFTER INNER IMtT TECT 
001462 CLR RR SALLOW CHECKING CERR IN GSTATI 
o4s4e4 JSR PC, SUBCLR ; YS. R 
1414 003362 HOV 710, TEMpe ; T uP T regu 
RROR 166 : T FOUND BEFORE TIMEOUT 
046412 gF LOAD 3FIND L 
4h 7 ERROR & FOUND BEFORE TIMEOUT 


;ATTN NOT FOUND BEFORE TIMEOUT 
1176 2s: SCAPE 
BBs408 CLR ;CLEAR FLAG 


UNLD 
8<D.0SC!D.SPIN!D. 10. VV!D.DRA>,E.AO ;EXPECTED MSG AD 
Fe 2 -SSP>,£.Al ;EXPECTED Al 
UM eri CTED'’MSG B1 

$3°6 183 inee 1b FOR 


ETED Rise BS 





nS Horr? ara! 


N“N 

Sz 
Bs 99 
Sr Se w 
one 





Soe eS ee fees 
Pet ee ht te, +. +-+ + 
+ 
ROS of RR a Ra 
Res <£ r 4 = Pa worry 


o44e52 JSR PC 5 CHECK 89,0481 
, WORD T.Ae!T.B2!0 , CIFIED HERE 

1 1 RR 63 ; T END OF HEAD LOADING 

r 104064 RROR 64 : 

1 1 3 1 

r rt RROR : 

ig oooo2, =° we AS ah TB hee OF te . 

ig oes p0Rnos ney pe | . Starus MR2, MR3 

i 5737 001364 1S cyt AbD REC FUL ? 
a i RROR : T 159 
7 64S: 
? 2 1 00000 00000 mov SCCLR, RKCS1(RS) 

13768 222 900010 MOV T’RKCS2(RS) ;ORIVE® 
7 332 MOV SCLEAR, HCS1 

rOBe 1O4151 ” Eg Te S0ch 100 DRIVEESER ORIVE SLEAR CMO 
7027 031024 004737 o44OI2 SR PC, TSTATN iTEST FOR ATTN 


A: 


CHESNEY EN EYERES ES 


SoRee 
NNN 
wre <£ 


N 
oO 








UNIBUS RK& OR PRT1 MACY11 30A(10S2) -JAN-78 12: PAGE 135 
Pll 25-JAN-78 12:00 133 DETECT INNER LIMIT S20 0125 
1030 000401 BR 66S 
1036 104154 nate ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
1 9340 003412 Hoy 8020. SPIN!D. DROVED. WV DRA> ,E.AD ;EXPECTED MSG AD | 
1 7 341 MOV #<D. SPOK!D.cART!O. 1D. BRHM!D.SSP>,E.Al ;EXPECTED Al 
i Bgsue8 HOV a —.B1 if FOR CTED'’MSG B1 | 
1 1 003424 mov 2, E. 3MSG CTED MSG 
1 127 003430 MOV 837 “BS ;MSG B FOR ETED MEG | 
1 o44es2 JSR PC, CHKMSG ;CHECK MSGS Al B1 
1 ,HORD T.A2!T.B2!0 -B CIFIED HERE 
ills t ERROR BGs ee 
1 10s 74 ERROR 74 :MSG Al 
i 1 See ERROR See :MSG Bl ERROR 
1 737 047430 ISR TST -SEE IF SW 14 OR 8 IS SET 
i Be asae BR FE+3u 3:60 a Rext TEST 
j RETURN HERE IF SW 14 IS SET OR 
:SW 8 WITH ar <7:0) APPLY 
10S: 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCRL 
o00020 67S: MOV TOCYL,RKOC(RS) ;CYL® 
003322 MOV K,HCS1 
JSR pee BOOND ;D0 SEEK CMD & GET CONTR READY 
ERROR 1a] ?NO RDY AFTER SEEK CMD. 
003360 MOV T TEMP1 
JSR atte ;FIND_ATTN 
senees RROR 1 sagen’ :NO ATTN AFTER SEEK CMD 
BEQ : 
ERROR io ;CERR AFTER SEEK CMD. 
69S: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
012054 cn TOCYL,LC sLAST Cy _DONE? 
INC TOCYL Ese DO ANOTHER 
68S: ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR SESCAPE 
TST LPFLG 
| 


SENOS MN RIOR HEIDEN PE sto 012 


GIES BBLIOF sare ce tere 4 9,85 1 
031254 177 1oese 70S: IMP get EERR :SwW 14 OR B has SET 
7088 031260 20S: 
7 o4s4e4 ISR PC, SUBCLR 
= 831568 Oedos4 ERROR 24 ;CERR AFTER SCLR 
1 27 1 003322 MOV aSRTSPL,HCS1 
631558 bos7 3? ree] JSR PC, DOCMD ;D0 START SPINDLE CMD & GET CONTR RDY 
7838 031300 104121 ERROR tel . :RDY NOT FOUND AFTER ST SPIN CMD. 
gaat Guiza Gaigeg C588 ON FEORATHT® i BStuP ar HEN 
7038 p3i3is rites ERROR BS’ ;NO BTN AFTER ST SPIN CMD. 
71 1 003304 LR UNLD 
71 1338 001410 fhe LPFLG 
71 1 001000 147604 BIT #SWS, ISWR ; ON ERROR? 
71 1 1274 NE 10s : YE RECONDI ION DRIVE 
1 133 000137 030656 —_ JI ;RETURN TO MAINLINE 
7107 031342 penn 
5108 $3 POPPETTTTT TT TTT TTT TTT itt Tt tit rtttttt tt ttt ti tititiitititittitt tt 4 
3110 j ATEST 34 FORMAT PACK 
7112 3% THIS TEST FORMAT ENTIRE PACK IN 22 SECTOR FORMAT BY 
site +H pe Thc 1 evE INCREMENTAL SEEK WITH WRITE HEADER CMDS (ALL TRACKS) 
7115 is HEADERS RIL BE-RERD IN THE EXT Test 
7117 oe KRERAKRAAKAARERARRERKSARERRARRERERRRKERERRAERERERRRRRRRRRRRARHAERKEE 
7118 031348 +5734: SCOPE 
3143 1344 012737 000001 001174 MOV #1,STIMES ;;D0 1 ITERATION 
71 
piss 031352 012706 001100 MOV aSTACK, SP ;RESTORE STK PTR 
7123 O31 7 001342 TST MODTST ;SEE_IF MODULE TESTING 
71 031 14 BEG. ;BR IF NO 
cat 031364 1 1 056321 Y ,MSG20 ;RUNNING MODIFIED VERSION OF TEST 
7127 70 7 001460 : TST MERR sCHECK IF FOUND LIMIT DETECT ERROR 
5182 831328 bors = BEQ re ame 
rat 0313 1041 — ERROR 170, sFATAL ERROR o“ 
ru abe nee 1456 1S: 13! Beer :OAee i FF LE SUND BSE INFO OK 
71 031412 1041 ERROR 177 ;FORMAT TEST BYPASSED-BSE ERROR 
7134 031414 O001 033016 IMP 7§ 
7138 14 0047 o04s42e4 2s: JSR PC, SUBCLR 
7137 831489 1040, ERROR 24 ;CERR AFTER SCLR 
7139 


»MSG1le ;FORMATTING PACK, PLEASE WAIT 


oO 
Ww 
_ 
<= 
o 
~ 
2 
es 
oO 
~ 
Oo 
uw 
ray 
fu 
a 
4 
< 
Uv 
m 


DR_PRT MACY11 (1052) 2S-JAN-78 12:08 PAGE 137 SEQ 0137 
ESREHE- Pil 25-San-78 12:00 SIRs Oe oRRaT PACK 


CLR TOCYL 


718 031432 005037 0013S2 
001 MOV ALADD =; SET 
cies BBN BLE BONES BBLS a ee 
at §3} Bisa paeess J PC; FHDTAB 7 AE Be 
7148 
714 4 9s: TAB RKBACRS) : SUIS oBECTION 
v 8-66. , RKWC( 
ri ae oe Ke so a Ls nan 18 a9, 5S? ae argiaees 
? 14 . 
18 O31 12 BA 001430 SWAB HEAD :HEAD 0,1 & 2 
7155 031516 012737 003322 MOV #<HRHEAD> , HCS1 
' TA XFER CHO & T CONTR RDY 
31 bat Apia ZRROR B00. _— RD 1 Ar TER WRITE HEADER CMD 
71 031 045074 age GSTAT T TATUS 
i B31 38 tA 100000 003322 BIT BCERR, HCS1 
; ;CERR AFTER WRIT R_CMD 
see Oaieco } ‘a ose235 Fee” “Récie ORTING BALANCE OF TESTS 
7i63 §31554 O001 042662 IMP $EoP ABORT DR 
zig 531260 64S: 
7168 D031 005237 001430 INC HEAD 
031564 4 03 CMP HEAD, #3 
fies BBs farce SSE oom fe Jon 1F au netos Dore 
7 031574 O46 FHOTAB 
ay B3ieoo Soars, ores Berti‘ 
7173 931608 012737 900091 001366 11S: Mov #1 ,CALADD ; SETUP 
717g 031614 boeba? 001436 CLR FORMAT :FHOTAB ROUTINE 
v #1, CALDIF ; SETUP 
rire SRIRS Bera? apea, o01s60 an: aa 
5128 is Ne Ce. sisee segs my sERERT BE RRATTING CYL 1 TO 410 HERE 
7181 
7182 
oie Gsieup 1044 _ SCOP1 
gi Baie 4937 001100 Rov #STACK, SP ;RESTORE STK PTR 
7 737 o4s424 ISR PC, SUBCLR 
7188 p3iees rete ERROR 24 ;CERR AFTER SCLR 
; TST ;SEE_IF MODULE TESTING 
713} B31 A ue) een Ls ee iBR IP NO 
7138 1662 0167 737 033352 001176 nov #18S, SESCAPE 
7194 7 001176 18S: MOV aio 
Siege 18 Bie732 ress 000020 19S: MOV Arabs RKDCIRS) sCYL # 


MACY11 30A(10S2)_25-JAN-78 12:08 PAGE 138 
3088 FORMAT PACK en 


GSREHE- Pil 2esSAN-78 12:00 











71 031 14 HEAD 
7 0317 14 ooo006 MOV HEAD, RKDAC RS) ;HEAD # 
i 1 14 
1 7 003322 MOV sSEEK,HCS1 
7 17 Bos? ree JSR 1 ;D0 SEEK CMD & GET CONTR READY 
7 17 ERROR :NO RDY AFTER SEEK CMD 
g : 140 003412 nov .PIP!0.SPIN!D:VV!D.DRA>,E.AO ;EXPECTED AO 
7 1 i 003416 MOV 8<D.FWD!D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>,E.Al 
g 1 1 1 20 MOV #1,€.81 
7 1 7 o44252 JSR CHKMSG ;CHECK MSGS A0,B80,A1,81 
7 1758 ORD Teer jB MSGS SPECIFIED HERE 
7el 1774 1 R sMSG AO E ING SEEK CMD 
7el 1 1 RROR ; RROR 
7el 104 ERROR 205 :MSG Al ERROR 
gets 104206 RROR 206 :MS5G Bl ERROR 
7el 3 001362 000001 CMP CYLDIF, #1 
721 l2 1 1 BEQ 4§ 
781 14 10421 ERROR 212 ;CYL DIFF INCORRECT DURING SEEK 
ig b 7 001342 4S: TST MODTST ELF At MODULE TESTING 
7 BEQ 20s. ae I 
7 7 033372 001176 MOV #17S, SESCAPE 
g BR 21$ 
7 1 033076 001176 20S: MOV SESCAPE 
ge §350a2 §15533 004704 478 21S: MOV He ESEMPI ;SETUP TIMEOUT 
72 7 044140 JSR PC, FATT2 ;FIND_A 
7 4 1 RROR 3NO Oren TRETER SEEK CMD 
2 6 é 100000 003322 IT ac RR,HCS1 
7 1 210 ERROR 210 ;CERR AFTER SEEK CMD 
g§ 65S: 
75 o85313 003412 mov e .0SC!D.SPIN!D POET ie B08: ,£.AO ;EXPECTED MSG AO 
7 1 20 003416 MOV . SPOK!D.CART!6 BRHM! : SSP? .E ;EXPECTED Al 
%5 it 003420 ok Hi -Bl eet ih FOR CTED Aisa. Bl 
7 1 1 900002 o03424 v #2,€. cr D MSG Be 
7e40 1 127 000003 003430 MOV 33° E163 Mee MSG B3 
7 ; 1 JSR PC, CHKMSG ;CHECK MSGS Al 
7 138 , WORD T.A2!T.B2!0 pe PIED He 
7 144 ERR 133 MSG AQ ERROR Hat cho 
7 1 RROR 1 
7 1 RROR 1 nee Al 
7 1 ERROR 1 :MSG Bl 
7 154 ST YLDIF 
7 169 BEQ 66S 
7250 0321 ERROR 137 sCYL DIFF NOT CLEARED AFTER SEEK CMD 


cr ee - + 


ESREHE- P11 25-SAN-7B 12:00 


306 
307 





032440 


Hee 49000 
ce 
; 044012 
ca 


oon 
Sed 


o44eSe 


001364 


ee 


be 


<a 


MACY11 30A(10S2) 2S-JAN-78 12: 
34 FORMAT PACK 


001366 





66S: 


67S: 


SS: 


accLR, RVCS1 
SUNIT:RKCS2 
#CLEAR, HCS1 
PC AD 


;ORIVE® 
;D0 DRIVE CLEAR CMD & GET CONTR RDY 
;NO_RDY AFTER DRIVE CLEAR CMD 
; TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


a0 'D.SPIN!D. DRDY:D. ee DRA? , E.AO ;EXPECTED MSG AO 
§ BO ox. c1n 6. BRAM? 2S >,E.Al ;EXPECTED Al 
#146. -B1l CTED’ MSG B1 
#2,£.B2 ie CTED MSG Be 
$3° 6.63 H Rts €TED MSG B3 
PC, CHKMSG yoomen 80, B0,Al Fle 
T.Ae!T. Beto leo HERE 
Hs meg go ER VE CLEAR CMD 
74 Al RROR 
nee B1 ERROR 
CYLADD, CALADD 
332 ;CYL ADOR IN RKMR2 NOT=RKDC 
aSTACK, SP ;RESTORE STK PTR 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
BESERD AB ;FILL HEADER TABLE 
on ;SET TRACK # 
AB (RS) R_ WORD TABLE 
RK ERB eT 
ALAS, ADC CRS) :CYL # 
#<WRHEAD> , HCS1 
PC, DATCMD ;D0 DATA XFER CMD & GET CONTR RDY 
200 :NO_RDY AFTER WRITE HEADER C 
C,GSTAT :GET FRESH STATUS 
ace ,HCS1 
201 ;CERR AFTER WRITE HEADER CMD 
,MSG18 ‘ABORTING BALANCE OF TESTS 


SEQ 0139 


K1ll 
o8 


Cc O UNIBUS RK6& DR MACY11 30A(10S2) 2S5-JAN-78 12: PAGE 140 SEQ 0140 
Cc Pil 25-JAN- 78°] :00 T34 FORMAT PACK 

738 sete 000137 o42662 a IMP SEOP ;ABORT ORIVE 

731 , 

312 003412 Hoy 8<O2D. .SPIN!D. -DROYD. expo nec .DRA> ,E ;EXPECTED MSG AD 

731 — MOV SB ospoK!D.carTib. be Pee ;EXPECTED Al 

: 3420 HOV #1,€.61 if eee CTED’ féG Ti 

731 424 MOV > E. : 

731 poa430 MOV SS EBS inse 1D FOR 5 ~ 63 





owes2 ISR PC, CHK ; CHECK 
es WORD Fe ees 0 wx HERE 


NNN 


g j ERROR 44 MSG AO ae gneeee a P HEADER CMD 
736s 1Bd580 ERROR tt ina BO ERROR 

7364 32 {bu70 | ERROR 270 :MSG Bl ERHOR 

535p 

7327 032534 005737 001342 TST MODTST ;SEE_IF MODULE TESTING 

7328 032540 001402 BEQ 235 NO 


7329 O3eS4e 000137 033116 JMP 14$ : ELSE RESTORE HEADERS ONLY 


GGRcHE- P11 es-SaNe78 12:00 


Bee NINNNNNNNNNNNNNNNANGN ses 
Rca ueeet eee sae 


NNNNNNANNNNSN 
£ 
Re RRS ‘ 
+* 
3s eee 
<£ ret ts : 
~ 
N= = 
N“N be 
28 
4 
oo 


384 
7385 033006 000177 





MACY11 39861052). faa 


000002 
012054 


000003 


000020 
003322 


003360 


003322 


238: 


24S: 


70S: 


 e 38 BD ns Talsaseme 3A 


AN-78 12:08 PAGE 141 


PACK 


TOCYL , RKDC(RS) 


#SEEK HCS1 
Pe DOCH 
pepe 


1 

sere, Host 
71 

210 

PC, SUBCLR 
e4 


;HEAD 2, art IF ON LAST CYL 
; E ON LAST CYL HEAD 2 


ae 


wnNne 


nase 

a3 
E83 
388 
aes 
Z 


YES 
KEEP FORMATTING 


EAR FOR fe FORMATTING 
nau Hue CPU 


me PD 
mies 


ry 
o 


;CERR AFTER SCRL 
;CYL# 


; EK CMD & GET CONTR READY 
iRO RDY AFTER SEEK CMD. 


;FIND_A 
;NO ATTN "AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR 


TOCYL,O ;LAST CYL 


70$ 

JOCYL 
69S 

PC, SUBCLR 
e4 
SESCAPE 
LPFLG 


7 
@SLPERR 


FUse od ERNOTHER 


;CERR AFTER SCLR 


;SW 9 WAS SET. 


SEQ O141 


CZR6HEO UNIBUS RK& DR PRT1 


CZR6HE .P11 

7389 000177 

7. 

7389 004737 

733) 000137 
004737 

7335 000567 

7 


OVO EW ODD VEE 


PIPPI ILLII LILI IL LLL 


2 
a8 BES 


wre 
88 


Pa3e 033206 104210 
ne Gassi9 Touo34 


O3seee 015737 
7441 033230 Bo473? 


25-JAN-78 12:00 


146070 
osoo06 
032640 
047430 


001410 
001000 
032016 
00141 

601000 
032322 
001430 
601430 
032322 


B01 32 


000017 
043434 


001426 
044140 
100000 


o4s4e4 


001674 
0000eS 
043472 


MACY11 30A(10S2) 
T34 


146050 


146030 


000003 


003322 


003360 


003322 


003322 


72$: 


7$: 


73S: 
10S: 


12S: 


14S: 


15S: 


74S: 


FORMA 
JMP 


JSR 
JMP 


JSR 
BR 


@SLPADR 
PC, HPEN 
24$ 


PC, SWTST 
TSt3s 


pPria 
738 
SSLPAOR 


LPFLG 

#SW3, aSWR 
8 

4 


LPFLG 
#SW9, ISWR 
83 


HEAD, , #3 
a3 


RKDACRS) 
TOCYL 


#SEEK,HCS1 
PC DOémo 
ial 


TSOOOO, TEMP1 


PC Fatte 
re sZtre, HCS1 
210 

PC, SUBCLR 


#RHTAB, RO 


#<RDHEAD> , HCS1 


PC,DAT 


gk 12:08 PAGE 142 
T PACK 


;SW 14 OR 8 WAS SET 


;SEE IF HALT PENDING 


RE IF SW 14 ope al OR 
;SW 8 WITH SWR <7:0> APP 


; ES & EXIT 
:SEE IF SW 14 OR 8 IS SET 
::GO TO NEXT TEST 

; 


tay 7u"GR Bras ser 


2 
BP COND a os TION DRIVE 
ine Pek 70 M MAINLINE 


;LOOP ON ERROR? 
?YES, RECONDITION ORIVE 
:RETURN TO MAINLINE 


;SEE IF yout Be TO CYL O 
BRST pe RE at FOR NEXT HEAD 


{FO'RECONDITION DRIVE 


RO Beek pete LS GET con pare READY 


;FIND_ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


;CERR AFTER SCLR ~ 


;D0 DATA XFER CMD & GET CONTR RDY 


SEQ 0142 





| CZR&HEO UNIBUS_RKE DR_PRTI MACY11 30A(1052)_ 25-JAN-78 12:08 PAGE 143 
CZR6HE.P11 AN-78 12:00 T34 FORMAT PACK SEQ 0143 


744 ERROR 171 ;NO RDY AFTER READ HEADER CMD 
 7ay 100000 003322 BIT #CERR,HCS1 
i 7auy BEQ 76S 
| rade ne > ee = hecie iGEORT BALANCE OF Teste 
can 133 Basez3 IMP $eOP ABORT DRIVE 
a oiese0 o00024 76S: MOV —s- RKDB(RS), (RO)+ 31’ST WORD FROM SILO TO RHTAB 
74 4 Olesen 0024 MOV RKDB(RS); (RO)+ R 
ca 1 16 popbSY MOV RKDB(RS),; (RO)+ ‘5 RD WORD 
7ae4 74 100000 000010 BIT #OLT,RKCS2(RS) 
7455 ried BEQ : 
74 737 045074 JSR PC, GSTAT 
745 10 104173 ERROR 173 ;DLT AFTER READ HEADER CMD 
74 1 Lows 056235 TYPE MSG18 s ABORTING BALANCE OF TESTS 
74 1 2662 IMP $eoP ORT DRIVE 
cue 773: 
28 3737 001674 001352 CMP RHTAB, TOCYL ;CHECK WORD O (CYL®) ONLY 
1401 BEQ 75$ ia SAME 
4 104310 ens ERROR 310 *READ CYL WORD HEADER ERROR 
Sue 033334 004737 oSO006 JSR PC, HPEN ;SE IF HALT PENDING 
033340 000137 032640 IMP ous ;RET: IF YE 
74 . >ELSE HERE & EXIT 
7470 033344 004737 047430 JSR PC, SWTST* >SEE IF SW 14 OR & IS SET 
ouek 033350 000420 . BR TSt3s 5469 O NEXT TEST 
747, ; 7RETURN HERE IF SW 14 IS SET OR 
ozs ae é :SW 8 WITH SWR <7:0> APPLY 
7475 $3335 37 1410 : INC LPFLG —¢ 4 
276 356 032777 1000 145554 BIT #SW9, ISWR ;LOOP ON ERROR? 
74 4 Tob BNE 18s ;YES, RECONDITION DRIVE 
ou78 0137 032016 oa. IMP 4 *RETURN TO MAINLINE 
7480 3 Hs "ING LBFLG * Ae 
Ea ae id 5 145534 I aSWS, ISWR ;LOOP ON ERROR? 
74 G33404 001254 BNE 15$ ?YES, RECONDITION DRIVE 
oes 000137 032322 IMP 5s ?RETURN TO MAINLINE 
ant 033412 
ouge 13S: 
89 
7430 3 jest ae DECRERENT FROM LaST Ov, TOO 8 Rea ieee 
eal j ATE DECREMENT FROM LAST CYL TO O & READ HEADERS 
7493 i THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY 
cant 2 i SINGLE CYL INCREMENTAL SEEKS. 
7496 oe KRERKKEKA LER KKE REM EERE KKEE EYER EMER HK ER HE REEKE RE ESKER ERKR ER ERK EXE 
7497 033412 oO0004 $735: SCOPE 


ae —_—_—_ eww oe - - a 





Cc 0 UNIBUS RK6 DR PRT MACY11 30A(10S2) 25-JAN- 
¢ Pll 2S-JAN-78 12:00 T35 DECREMENT 
74 4 O01 , 001174 MOV #1, STIME 
74 §33u33 Bea. eabbtee MOV sethon SP 
YPE 
Bai sus ist agorst 
70 TYPE MSG21 
IMP 135 
i 12054 001350 SS: MOV LC, FRCYL 
13737 OledS2 001352 MOV LCA, TOCYL 
1S: 
i 4 104415 SCOP1 
i3 Sees biz7be 001100 v sSTACK, SP 
1 72 004737 o4s4e4 SR PC, SUBCLR 
14 BS3ure 104024 ERROR 24’ 
HA 933500 012737 034430 001176 MOV #10$, SESCAPE 
i 013765 001352 000020 MOV TOCYL, RKDC (RS) 
1 S14 


? 

: 

Bang 
22 





RR 
ERROR 
001362 000001 CMP 
es, p0000s 000026 Foy 
1 7. 04S0 JSR 
1é 104%ele ERROR 
3620 0127 O344SO0 001176 eS: MOV 
pent 3626 pista 004704 360 MOV 
7543 7. 044140 JSR 
75 4 ERROR 
Pee Ly, “45 100000 003322 Bit 
} 1042 
as a gus, ERROR 
7550 3654 12737 950340 o034le MOV 
feel Qsseee DOECS BOG i, 
7553 033674 012737 oooo01 oo34e0 MOV 


| Eee reree aE RE RUC! 


as HCS1 
DOcmD 


” 12:08 PAGE 144 
ROM T CYL 10 0 0 & READ HEADERS 
i29 


SEQ 0144 


RESTORE STK PTR 


Ler ES PER 


| 
| 
LITERATE | | 
| 
YP TESTS 36,40, 1 
;CERR AFTER SCLR 


;CYL & 


;D00 x afer seeK EaD CONTR READY 


;N 
thse .SPIN!D. VV!D. DRAD . E.A0 EXPECTED Ad 
V!D. SPOK!D. CART!D. DOOR! D. BRHM!D.SSP>,E.Al 


SESCAPE 
93600" , TEMP 


PC,FATT2 
#CERR,HCS1 
64S 


#<D-DSCID. .SPIN!D. DROY 'D.vv! 
4D. Sp0K:0.cART?6, Boor 


;CHECK MSGS A0,B80,91,8 
; ace Sect LED HERE 
;MSG ING SEEK CMD 
3;MSG Be RROR 

?MSG Al ERROR 

?MSG Bl ERROR 

;SELECT WD 2 


;CYL DIFF INCORRECT DURING SEEK 


;SETUP TIMEOUT 


;FIND_ATTN 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


D.DRA>,E.AQ ;EXPECTED MSG AD 
XPECTED fs MSG 
!0.BRHM!D0.SSP>,E£.A ;EXPECTED Al 
0 FOR EXPECTED MSG ta 


B 
FROM CYL 
TO CYL 
;RESTORE STK PTR 
| 


Ree Eat rel 





00 
7S5S4 Gagee 
:. o044eSe 
Pepe 
: 001362 
recy 100000 
ee 044012 
i 010340 

3414 
rs 6 
5} 
to 044252 
ge ‘37. 001364 
1 14 
S Gnin ss 
7539 1 
Bide 10% 
Zook 1l 127 001100 
114 7 yy 
re oS a 
A O3s4i2e2e 005037 001176 
7 
zene 034126 013765 001352 


MACYL1 3981052) 


0013S2 


oo00e0 


DEEREMENT PRON” 


CLR 


m 
*e Ri 


8 SS 
BS 


KH MORK RH mr 
eee 2 
nw" 1 

5 


wu 
Nw 


!D.SPIN!D.DORDY!0. VV? 


Serpe. “ae 


e! 
$5°E-B5 


PC, CHK’ 
Tr Aet. 2:0 


266 
CYLADD, TOCYL 
7 


#STACK, SP 
PC, SUBCLR 
e4 


SESCAPE 
TOCYL , RKDC(RS) 


(RE, EFC +8"3 s Reao HEADERS 


;EXPECTED MSG Ae 
ise 1B FOR EXPECTED hed 83 


;CHECK MSGS AO,BO,A1,B1 


PTT baeiel 
ineg 8 


;CYL DIFF NOT CLEARED AFTER SEEK CMD 


;ORIVES 


;00 DRIVE CLEAR CMD & GET CONTR RDY 


SHO DOY fF 1h ORIVE CLEAR CMD 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 







AO ;EXPECTED MSG AO 
pee) E28 ok. ae ;EXPECTED Al 
ED MSG 


oT TSE & 


eat tep HERE 
ER ORIVE CLEAR CMD 


sone?» 


ge" 


;CYL ADDR IN RKMR3 NOT = RKDC 


;RESTORE STK PTR 


;CERR AFTER SCLR 


;CYL & 


SEG O14S 


CZR6HE.P11 


uO 
# 
&? 


Sieicoeeees 


sepnnouR 


4 


HE 


Too goe 
SaHE 
a 
3 


= 


CZR6HEO UNIBUS RK& OR PRT1 
2S-JAN-78 12:00 


043472 
100000 


0S62e35 
042662 


12858 S000e4 
ooode4 


MACY11 30A( 1052) 
T35 


003322 


003322 


000010 


001352 


69S: 


67$: 


4S: 


6S: 


70S: 


2S-JAN-78 


12:08 PAGE 146 
DECREMENT FROM LAST CYL TO 9 & READ HEADERS 


310 


PC, SWTST 
TSt36 


PC, SUBCLR 
24’ 


TOCYL ,RKDC(RS) 
Pe BOeHO 

13] 
peopgeyse 


#CERR,HCS1 


SEQ 0146 


188 REVPAPTER REROh SADERONT 
Sy EERE Ge ERHE OP 


;ABORT DRIVE 
31’°ST FROM SILO TO RHTAB 
tB+RO WORD 


’ 


;3’RO WORD 


ABORT AFTER READ HEADER C 
gata OF TEST 


3 CHECK WORD O (CYL#) ONLY 
;B8R IF SAME 
;READ CYL WORD HEADER ERROR 


;SEE IF SW 14 8 IS SET 
s3 O NEXT TEST 

aE fURN RE IF SW 14 IS SET OR 
:SW 8 WITH SWR <7:0> APPLY 


;CERR AFTER SCRL 
;CYL# 


;00 SEEK CMD & GET CONTR READY 
;NO RDY AFTER SEEK CMD. 

ATTN 
™N 


TTN AFTER SEEK CMD 


CEE OOS OK OR oe Td:00 ACY S0QC10S2) BRE TENT FROM LAST CYL’ TO 9 & READ HEADERS rw 


14 72$ 
1 1 1 3 K ° 
ne techy BERR 210 CERR AFTER SEEK CMD 
7 o4s4e4 723: PC, SUBCLR 
323 [Bdaa4 ZRROR e4 ;CERR AFTER SCLR 
rere | 183 001352 012054 CNP TOEVL LC AST pCVb_DONE? 
74 0013S2 NC TOCYL ier DO ANOTHER 
i aoe R785 
g34400 004737 o4s4e4 71S: ISR PC, SUBCLR 
a: 1 ERROR 24 ;CERR AFTER SCLR 
11 R 
seat 1 DO141 ist cPriG 
38 195 144464 IMP aSLPERR : SH 9 WAS Ser. 
177 144456 738: IMP a$L :SW 14 OR 8 WAS SET 
76 
10S: 
33 1410 INC LPFLG 
56 a2 131 pagpme  niage BE ale :LeoP Re ERO T TION IVE 
ree poor? 033620 IMP 8§ ; FUN 8 RAINE INE 
oeae 37 go1410 _ INC LPFLG 
454 JSWR : RROR? 
oEae ue2 1305 a BNE aS, ives, Rec ITION DRIVE 
38 000137 034106 IMP 3$ ;RETURN TO MAINLINE 
034470 : 
a 13S 
77 H LEGER ERREREEERERERERERRLRRRERRERRERERE SR RERERERERRRRE RRR REREREE 
2704 TEST 36 SEEK FROM CYL O TO ALL MAJOR CYLS & READ HEADERS 
7706 * THI TEST SEEKS FROM CYL 0 TO ALL THE MAJOR CYLS & READS HEADERS. 
2707 # HEN SEEKS CYL 8 READS HEADERS. 
3508 :% MAJOR CYLS ARE: 1 (DECIMAL) = 1 COCTAL) 
7710 3% 2 e 
7711 ;# 4 
oets 3% 8 
771 $3 1g 20 
7714 : 49 
we f ibe 158 
5515 3% eo8 400 
e718 # i 1000 (RKO7) 
7720 ii © MG Me HE HEME AE HE HE AE HE HEHE HE EE EH HEE HE 


6736: SCOPE 


N 
“N 
fu 
i 


034470 oo0004 


Cc 
Cc 





SN 


LL 


NNN 
NN 
333 


YS 
Yo 


0 UNIBUS 


-Pll 2s- 





DR_PRT 


Ive 
ite 

BRE 
ily 


ie 


=e 


AN-78 13:00 


b18a74 


001100 
o4s4e4 


o44252 


MACYI1 308¢ 1052) 


001174 


01382 


1S: 


64S: 


-JAN- 12: PAGE 
SEEK PROM CYL {8°40 ALC MATOR CYLS & READ HEADERS = oe 
MOV #1,$TI TERAT ON 
MOV sétace mes ‘her oRd ER 
MOV FC, FRC ;SETUP FROM CYL 
MOV FCP1, FOYL ;SETUP TO CYL 
say" 

aSTACK, SP ;RESTORE STK PTR 
J PC, SUBCLR 
E 24 ;CERR AFTER SCLR 
MOV 
a a 
nov t ;CYL DIFF 
MOV Tene: Ter ? ERROR PRINTOUT 
MOV TOCYL,RKDC(RS) ;GO TO CYL # 
MOV #SEEKHCS1 


18 RSP APTBAS SET GaRT® ResOv 


13 
Ep,poro. .SPIN!D: VV!D.DRA>,E.AD ;EXPECTED AO 
FWD!D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al 


$1,€.61° 


PC 
T,Ae!T B20 
;SETUP TIMEOUT 


8 APE 
1e5000; TEMP! 

FATT2 FIND ATT 
1 ?NO TTN AFTER SEEK CMD 
= 
gi ;CERR AFTER SEEK CMD 
#<0.0SC!D.SPIN!D ee -DRA>,E.AO ; 
sibs sa fe 

SPOK!D. cant#b 1D SSP> , »E.Al 
#1 —.B1 ED 


*) Pe ra nse 


Fo ast t Bet0 —— oy Moos SPEGIFTED HERE 


EXPECTED MSG AD 
;EXPECTED Al 





rr a 


Sala aeaae 


WON OWLCWM- 


RS 


sna 
oie 


Gl 
os 


ZREHEO UNTBUS _R RK& DR_PRT MACY11 (1052) 25-JAN-78 12: PAGE 149 4 
At ae AN-78 12:00 308s SEEK FROM CYL O TO ALL OR CYLS & READ HEADERS — oo 
R AFTER SEEK CMD 
i se 86 
tet Eon |e Med Bt ERROR 
001362 ST YLDIF 
001401 BEQ 65$ 
O3e00e 104137 ERROR 137 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
035010 65S: 
935010 012765 100000 oo0000 Mov acct, RKCS1(RS) neue 
te . 
7 J AD ;D0 DRIVE CLEAR CMD & GET CONTR RDY 
434 RROR bel iN RDY AFT R RIVE CLEAR CMD 
044012 SR TSTATN TEST FOR ATT 
035044 000401 BR 66$ 
104154 on ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
035050 012737 010340 003412 Moy 8<O20. . SPIN!D.ORDY!D. VV! srr E.AO ;EXPECTED MSG AO 
big?a7 boi 7e0 003416 v §<BeSPOK! 1D. a sa ;EXPECTED Al 
1 1 20 nov a E.B1 Beet tep EC EO’ ise 481 
tie 003424 nov $2062 Rise 10 ars 
ll 12737 000003 003430 MOV #3,£.83 CT Mee 63 
1 7 o442s2 ISR PC. CHKMSG oe B0,A1,8 
138 Be 0083 .WORD T.A2e!T.B2!0 ‘ SBS Cae SPE GtTED HE HERE 
15s 1 5 Fr ec inge 63 ae 5 See CORIVE CLEAR CMD 
1 t RR 3 
1 RR : 1 
035132 104266 266 ?MSG B1 ERROR 
035134 ate 001364 001352 MP YLADD, TOCYL 
neigh OR ? ;CYL ADDR IN RKMR3 NOT=RKDC 
1 3S: 
1 o4415 SCOP1 
1 12706 001100 MOV SSTACK, SP ;RESTORE STK PTR 
1S4 737 o4s424 J PC, SUBCLR 
neat i ZRROR ‘ ;CERR AFTER SCLR 
1 37 001176 CLR SESCAPE 
p3ei€e 13765 001352 o00020 MOV TOCYL,RKDC(RS) ;CYL ® 


60 615797 ogee 003322 HOV ti READ? , HCS1 
737 TSR FREER ;D0 DATA XFER CMD & GET CONTR RDY 
e514 _— ERROR lee, ‘aaa ;NO ROY AFTER READ HEADER CMD 
035222 001405 BEG 


CZR6HEO UNIBUS RK6& DR PRT1 
CZR6HE.P11 25-JAN-78 12:00 


Bee ES tees 
ES 


ces0 


i 
iS 
Pee 
B 
: 
e 
E 
: 
: 
a 


: 
ae 
: 


Seas 
e 2 
& 

aR 2 


oF 
8 
— 
o 
2 


14 
35319 1043 


Bseuse 815737 © baTase 


100000 





MACY11 30A(10S2) 
T36 


000010 


0013Se2 


003322 


003412 
003416 
003420 


003322 


68S: 


695: 


67$: 


4S: 


Hl 
o8 


25-JAN-78 12: PAGE 150 
SEEK FROM CYL O TO ALL MAJOR CYLS & READ HEADERS 
ERROR 174 ;CERR AFTER READ HEADER CMD 
TYPE MSG18 ‘ABORT BALANCE OF TESTS 
IMP $e0P [ABORT DRIVE 
Roy CBRE} {RB} $n: 8 Uap F#m StLo To RuTae 
MOV RKOG(RS),(RO)+ 33°RD WORD 
BIT #OLT,RKCS2(RS) 

OER ecstat 

E S45 ;OLT AFTER READ HEADER CMD 
YPE MSG18 :ABORTING BALANCE OF TESTS 
IMP $e0P ; ABORT VE 

ce RHTAB, TOCYL ;CHECK WORD O (CYL#) ONLY 
ERROR 310 : CYL WORD HEADER ERROR 
SCOP1 

MOV wSTACK, SP ;RESTORE STK PTR 

ISR an SUBCLR 

ERROR ;CERR AFTER SCLR 

v 4S 

v +, Shebei Rs) ;RET Cc 
Rov Factt YL; CCYL 3C NT TRE For TRUERROR ROUTINE 
MOV K 1 
ZRROR ee {Doth IR ROW AFTER R’SeEK EMD REROY 
Hoy a PIP!D. ones’ vV!D AD ;EXPECTED AO 
nov aD. D_REy!O D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al 
JSR ec. HKMSG ; CHECK nsGs £480 Al Bt 
: T.Ae!T.B2!0 SPECIFIED HERE 
Ere i 63 fs aCe ark SEEK CMD 

RR RR 
ERROR 206 MSG B1 ERROR 
MOV #16$, SESCAPE 
MOV T50000, TEMP ;SETUP TIMEOUT 
PC, FATT F ATTN 
ERROR 13008 wee TAO OT aN AFTER SEEK CMD 
BEQ 70s 


SEQ 0150 








Tle 








CRE TTBS EK OB ie:00  CYt! S0B C1082) eR PRON CYL O° 70 ALL MAJOR CYLS & READ HEADERS a ee 
gasve2 104210 vos, ERROR 210 ;CERR AFTER SEEK CMD 
a 4 9 003412 Hov espa gepasvieaoey £40 EXPECTED MSG AO 
; L 1760 903416 i i a oe EXPECTED Al 
se ; 
i $0 MOV BSE LBS iMee 1B FOR EXPECTED mac 63 
© Dente Jibro | TOAST Bst0 pamela wSteCtE TED HERE 
io4i ERROR 134 inse 80 piece hes 
? 1041 RROR 1 ; 1 ROR 
ERROR 136 iMSG B1 ERROR 
737 001362 ST CYL OIF 
230 1041 PRaor 147 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
a 718: 
1 1 MOV —s- &CCLR, RKCS1(RS) 
is ? Rov rae ia sate AR CMD & GET CONTR ROY 
i$ 4 i RO Roy Beye DRIVE CLEAR CMD 
1 Z TSTATN iTEST FOR ATTN 
1041 aA RROR 154 SATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
S620 avo 003412 Hoy _8<1D. SPIN!D. DROY!D.. VV#D. DRA? , EAD ;EXPECTED MSG AD 
720 003416 HOV -§<D_ SPOK#D. CART#6- DO0R#D. BRH!D. SSP» ,£. Al EXPECTED Al 
% HOV a Bl if ee ED'MSG B1 
a tas 
feo OL as450 MOV BSTE SBS thee 1b FOR EXPECTED Nec BS 
737 o44eSe JSR —- PC, CHK CHECK MSGS al.B1 
7 : roast T Bet0 . ie, Meo wgeec 2 ED HERE 
nS 2 [Aeon 
104874 ERROR 374 iMSG Al ERROR 
a 104 ERROR 2366 iMSG Bl ERROR 
704 023737 001364 001350 CMP YLADD, FRCYL 
7340 p3erie O5i88i ERROR 55. ;CYL ADDR IN RKMR3 NOT=RKDC 
rae Fie 1041s -_ SCOP1 : 
7a44 038720 012706 001100 MOV —s&STACK, SP ;RESTORE STK PTR 










C O UNIBUS RK& DR PRT1 
-Pll 


035724 004737 
038730 104024 


Cc 


SRRRRERRE IND EARS EE 


SSPEARS 


sere 


004737 
104024 


013765 
012737 
4737 


136 104131 


25-JAN-78 12:00 


o4s4e4 





o4s4e4 
001352 


000017 
043434 


MACY11 30A( 1052) 
T36 


o000e0 


003322 


003322 


000010 


001350 


012060 


000020 
003322 


74S: 


75S: 


6S: 


76S: 


l 


PAGE 152 


8 
SEEK FROM CYL O TO ALL MAJOR CYLS & READ HEADERS 


2S-JAN-7 12:08 
JSR PC, SUBCLR 
ERROR 24 
CLR SESC 
MOV RCYL, RKDC(RS) 
MOV #RHTAB 
MOV #<RDHERD> , HCS1 
Jer PC Cc 

RROR 1 
Bro #CERR,HCS1 

Q 74 
ERROR 174 
TYPE MSG18 
IMP $e 
MOV RKDB(RS), (RO)+ 
MOV RKDB(RS), (RO)+ 
MOV RKDB(RS); (RO)+ 
BIT #OLT,RKCS2(RS) 
fee bee 

S PC, GSTAT 
ERROR 173 

TYPE 18 

JMP $e 

CMP RHTAB, FRCYL 
BEQ 73$ 
ERROR 311 

CMP TOCYL,MC 
BEQ 
ASL TOCYL 
IMP i$ 
JSR PC SHTST 
BR S37 
JSR PC, SUBCLR 
ERROR 24 
MOV TOCYL , RKDC(RS) 
MOV #SEEK,HCS1 
JSR PC, DOCMD 
ERROR ial 


;CERR AFTER SCLR 


2OQ 
of 
ae 

g 


; CHECK WORD O (CYL#) ONLY 
BEAD cf ORD HEADER ERROR 


8 IS SET 


SW 14 IS SET OR 
<7:0> APPLY 


;CERR AFTER SCRL 
;CYL# 


;00 SEEK CMD & GET CONTR READY 
;NO RDY AFTER SEEK CMD. 


SEQ 0152 


CZR6HEO UNIBUS RK6 DR PRT1 
2S-JAN-78 12:00 






CZR6HE.P11 

140 37. 1426 
i 4140 
1 100000 
1 1 4 
164 10421 

a 
1 





be 





EL 
r 


=n 
Nai 
: 
8 


012072 


142664 


142644 


142624 


142604 


001174 


778: 


798: 
10S: 


12S: 


14S: 


16S: 


(1052) 


25-JAN-78 12: 
SEEK FROM CYL O TO ALL 
MOV T TEMP1 
JSR peorarte 
ERROR i132 
BIT SCERR, HCS1 

RROR 21 
ISR PC, SUBCLR 
ERROR 4 
CMP TOCYL,FC 
Q 77$ 
EC TOCYL 
BR 765 
ISR PC, SUBCLR 
ERROR 
CLR SESCAPE 
TST LPFLG 
BEQ 79S 
IMP aSLPERR 
IMP SLPADR 
INC LPFLG 
IT #SW9, ISWR 
Ee 85, 
IMP 2s 
inc LPFLG 
I SUS, OUR 
ip OOS 
INC LPFLG 
BIT #SW9, ISWR 
BNE 85 
IMP 4§ 
INC LPFLG 
BIT 8SU9, OSUR 
pO 


MAJOR CYLS & READ HEADERS 


‘;FIND_ ATT 


N 
;NO ATTN AFTER SEEK CMD 
;CERR AFTER SEEK CMD. 
;CERR AFTER SCLR 
;LAST CYL DONE? 


;BR_IF YES 
;ELSE DO ANOTHER 


;CERR AFTER SCLR 


[SERRERSEEEREEE DREHER ERNIE TRON OL MO Ree 


:kTEST 37 ADER 
+ MMR RRR ARRRRRERRARRARRRRRKRRRKRARRLER 


+8137: 


SCOPE 
MOV 
MOV 


sstac 


moorTst 
DOSEEK 


STIMES 
K, SP 


::D0 1 ITERATION 
PS TORE STK PTR 


;SEE_IF MODULE TESTING 
;B8R IF NO 


SEQ 0153 


CZR6HEO UNIBUS RK& DR _PRT1 
CZR6HE.P11 2S-JAN-78 12:00 


000137 





eee 
e 
Erte] 
g 


bh 


oot 
We--O 


042164 


12072 
12074 


001100 
o4s4e4 





MACY11 30A(10S2) 
T37 


001176 
033360 
003322 


003412 


003416 
003420 


oo34e4 
003430 


DOSEEK: 


64S: 


Lie 


25-JAN-78 12:08 PAGE 154 SEQ 0154 

SEEK TO ALL ots FROM 0 & READ HEADERS 

IMP CYLINV ;ELSE BYPASS TESTS 40 & 41 

MOV FC, FRCYL ;SETUP FROM CYL 

MOV FCP1, TOCYL :SETUP TO CYL 

SCOP1 

MOV aSTACK, SP ;RESTORE STK PTR 

ISR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

MOV 

MOV FREY TEMES ; SETUP 

nov cre CYL DIFF 

nov TEMP’ + CL DIF t ERROR PRINTOUT 

MOV TOCYL,RKDC(RS) ;GO TO CYL # 

MOV BSEEK HCS1 

JoR on DOcMD D0 EK CMD 8 GET CON CONTR READY 
Hoy g BoP IPto- . SPIN!D. VV!D. DRA> ,E.AD SE PECTED AO 
HOV .FUD!D. SPOK!D. CART!D. DOOR!D. BRHM!D. SSP» ,E.Al 

’ . 
; CHECK 

TFB Rp Foes Fo . ao Feet Sune ee HERE 
ERROR 203 SEEK CMD 
ERROR 204 imse 80 ERROR 

RROR 205 7MSG Al RROR 

RROR 206 :MSG Bl 

MOV #128 

MOV oS Oo TEMPI ;SETUP TIMEOUT 

R FATT2 FIND ATTN 
ERROR 1 ape AO ATTN AFTER SEEK CMD 

BEQ Bus : 
ERROR 210 ;CERR AFTER SEEK CMD 
Mov £2 .DSC!D.SPIN!D ein ye 6°80” E.AO ;EXPECTED MSG AD 
MOV #<D. SPOK!D. cART! ;EXPECTED Al 
nov a -Bl ert BoSSP> fsa. B1 
MOV 2, £.B2 : CTED MSG 
MOV #3,£.83 CTED MSG 
ISR PC, CHKMSG sao Msgs A0,80,A 

WORD T.Ae!T.B2!0 & MSGS CBE etETED HERE 


CZR6HEO UNIBUS RK& OR PRT1 
CZR6HE .P11 2S-JAN-78 12:00 


8114 036654 104133 
036686 


sae 
: 

pists: 
S 


0366 


aeeet 
EnTowL F 


a ae ae ae be be be be ee ee 


dal os So Seas Se 
a8 


w 
a 
9 
8 
8 


EOM-OOONTU LU ODD VU EO O BOSE Les Sw BOONE Ce 
So So 
te 3 
2 


be 


DUO 


o 
Ys) 
oO 
Ww 


001362 


001364 


MACY11 30A(10S2) 
137 


000000 
010 
3322 


003412 


003416 
003420 


003424 
003430 


0013S2 


000020 


003322 


003322 


655: 


66S: 


3$: 


2S-JAN-78 12:08 PAGE 15S SEQ 0155 
SEEK TO ALL CYLS FROM O & READ HEADERS 


ERROR 133 ;MSG AO ERROR AFTER SEEK CMD 

ERROR 134 MSG BO ERROR 

ERROR ie ied 81 ERRSR 

ao eyeour 

ERROR 1 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 


MOV #CCLR, RKCS1(RS) 
mov SUNT RKGSECRS) ;ORIVE® 


v aCLEAR, HC 
Elon 100000 "18 BBIVEcFRE*GRGVE BLA ERT® FO” 
SR gTSTATN ‘TEST FOR ATT 
ERROR ry sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
#<0!D.SPIN!D.DRDY!D. exis ree fa ;EXPECTED MSG AD 
& * rT §<BeSPOK!D. carb. ERDOR IDS ;EXPECTED 41 
MOV i - Bl Peete td nse 451 
MOV a2 ipa CTED MSG Be 
MOV #3,€. BS :MSG ID FOR EXPECTED MS 
7SBao FSARINED:o 1 OHECK NEES ABLPOAAL Phen vere 
RR s73 iM g ag ERR R AFTER DRIVE CLEAR CMD 
ERROR See iMeG Bi ERROR 
CNP SYLADD, TOCYL 
ERROR 207 ;CYL ADDR IN RKMR3 NOT=RKDC 
Rov #STACK, SP ;RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR 


MOV #6270 RKOC(RS) ;CYL # 


MOV #RHTAB 
MOV B<ROHEAD> , HCS1 
JSR PC DATCMD’ ;00 DATA XFER CMD & GET CONTR RDY 
id ?NO RDY AFTER READ HEADER CMD 
IT ac RR,HCS1 


Nle 


CZR6HEO UNIBUS RK& OR PRT1 MACY11 30A(10S2) 2S5-JAN-78 12:08 PAGE 156 SEQ 0156 
CZR6HE.P11 25-JAN-78 12:00 137 SEEK TO ALL CYLS FROM O & READ HEADERS 
G17) GEHS 1E! cee REO" lose «AGORA “GNEAACEPG, "FERS * 
t . 
B17¢ 03711 13> Basces $eoP > ABORT BRIVE 
8174 O37122 016520 gone. 68S: MOV RKDB(RS),(R)+ ;1°ST WORD FROM SILO TO RHTAB 
8175 0371 O16520 0024 MOV RKDB(RS);(RU)+  :2°ND WORD 
g176 0371 016 oooo24 MOV RKDS(R5),(RO)+ $3°RD 
81 
giz8 037136 032765 100000 oo00010 BIT #OLT, RKCS2(RS) 
8180 037144 1407 BEQ 
81 71 732 04S074 ISR PC GSTAT 
81 71 104173 ERROR 173 ;DLT AFTER READ HEADER CMD 
gigi O37160 OOGlS? Oousees Sa tt a iABORT DRIVES sO TESTS 
8185 7164 69S: : 
6187 7164 989737 001674 001352 CNP RHTAB, TOCYL ;CHECK WORD O (CYL#) ONLY 
B189 giz 104310 — ERROR 310 *READ CYL WORD HEADER ERROR 
8191 ‘ 
B13¢ 
81 037176 104415 SCOP1 
gga 012706 OO1100 v aSTACK, SP ;RESTORE STK PTR 
8196 004737 o4s4e4 JSR PC, SUBCLR 
B137 io 104024 ERROR 24 ;CERR AFTER SCLR 
8139 012737 O40166 001176 MOV #14S, SESCAPE 
00 037 Ot 7es 1350 000020 MOV FRCYL,RKDC(RS) ;RETURN TO CYL & 
a 2 i 1350 001354 MOV FRCYL, CCYL :CURRENT CYL FOR TRUERROR ROUTINE 
34 0127 7? 003322 MOV #SEEK,HCS1 
85 g 2 bos? eared JSR on PC BOND ;D0 SEEK CHD 8 GET CONTR READY 
Bee Ul 149 003412 MoV #<D.PIP!D.SPIN!D.VV!D.DRA>,£.AQ ;EXPECTED AO 
187 7 720 003416 MOV #<D.REV!D. SPOK!D. CART!D.DOOR!D. BRHM!D. SSP>,E. Al 
0 1 O01 o03420 MOV #1,£.61 
1 737 o44eS2 JSR PC, CHKMSG sCHECK MSGS A0,80,A1,B81 
PSE 7 ans .WORD T.A2!T.B2!0 , -& MSGS SPECIFIED HERE 
Bei oarsbe 1p4soa ERROR 304 MSG 80 ERRoe DURING SEEK CHO 
8215S 037310 104205 ERROR 205 *MSG Al ERROR 
Bel 037312 104206 ERR 206 :MSG Bl ERROR 
821 
e518 314 012737 O40206 001176 4S: MOV #165, SESCAPE 
Be20 7322 013737 O01426 003360 MOV TS50000, TEMP ;SETUP TIMEOUT 
Beee 30 004737 O44140 ISR PC,FATT2 ;FIND ATTN 
B82e3 037334 104132 ERROR 132 :NO ATTN AFTER SEEK CMD 
24 037336 737 100000 003322 BIT #CERR,HCS1 
8225 037344 001401 BEQ 70$ 





B13 


& 0 UNIBUS RK MACY11 9G, 1052) ss toe 12 ,08 PAGE 157 SEQ 0157 


-Pll es- aNe7B “att :00 


TO ALL CYLS FROM 0 8 READ HEADERS 
e3 037346 104210 —_ ERROR 210 ;CERR AFTER SEEK CMD 
| 8 003412 Hoy 8D. DSC!D. .SPIN!D. ah ,E.AO ;EXPECTED MSG AD 
720 003416 MOV #<D. SPOK!D.CART!0. DOOR! ! ;EXPECTED Al 
003420 HOY a1. -Bl if CTED’ née Bl | 
i b03430 MOV BSE 83 ine 1B FoR Mee 83 








ISR PC jCHECK MSG 
85 . WORD Fe et aS 10 oo as HERE 
ge 1041 ERROR 133 G a0 ERR AFTER. SEEK CMD 
iB mo 1g mE 
Beds ee RROR 136 
: 001362 Tot cy DIF 
1041 ERROR 13 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 
037444 71S: 
44 Ol oo0000 MOV SCCLR, RKCS1(RS) 
1 1 900019 MOV SUNIT.RKCS2(RS) ;DRIVES 
00332 MOV #CLEAR, HCS1 
737 043434 JSR PC, DOCMD 300 BO DRI VE _¢ AR CMD & GET CONTR RDY 
ERROR | ¥ DRIVE CLEAR CMD 
4 74 ? o44o12 JSR TSTATN iNest FOR ATTN 
1041 oe ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
1 1 003412 MOV #<0!D.SPIN!D. DROY!D.¥ wi rope” .AO ;EXPECTED MSG AO 
12 14 CLR E. BO. 
16 MOV #<0.S SSP? ,E ;EXPECTED Al 
I 420 MOV a1, €. ED Aisa Bl 
4 127. 5 003424 sv # MSG 
ee aa BtS> posus0 MOV a3°E: STED Nee BS 
826 737 o44ese ISR PC, CHKMSG ae msgs AO, BO a1 8 
. ORD T.A2!T.B2!0 sce SPecte I 
; { ERROR 368 Mee 80 beak ER ORIVE CLEAR cho 
827 4 104274 RROR 274 nee Al ERROR 
72 7566 104266 E OR 266 nee Bl ERROR 
74 70 023737 001364 001350 CMP CYLADD, FRCYL 
75 1401 BEG S$ 
Be76 104243 ERROR 243 ;CYL ADDR IN RKMR3 NOT=RKDC 
BS? O37eos 104415 - SCOP! 
7604 012706 


001100 MOV aSTACK, SP ;RESTORE STK PTR 


By 
a 


CZR6HEO UNIBUS RK DR _PRTI MACY11 30A( 1052) 1 
CZR6HE.P11 25-JAN-78 12:00 398) seek 10 ALL role bE 3|READ HEADERS SEQ 0158 


8282 004737 o4Ss4e4 JSR PC, SUBCLR 
104024 ERROR 24 ;CERR AFTER SCLR 


813766 801350 00020 ROV —-PREYLRKDC(RS) CYL # 


037610 
037614 
pasa Bere Sopees 003322 Oy eS csi 
7 Ton Pc CMD’ TA xF R CMD & ONTR RDY 
Beas frets Oeics aoe IReon Poyoet ;PQ ROTR,NFER CHO 8, oer. conTR 
100000 003322 BIT RR,HCS1 
i Ehor 1 ;CERR AFTER READ HEADER CMD 
3H 10s “3 056235 YPE MSG18 ;ABORT BALANCE OF TESTS 
638 1 042562 IMP $E0P 3ABORT DRIVE 
037672 016520 oo00024 74S: Mov RKDB(RS), (RO)+ ;1’ST WORD FROM SILO TO RHTAB 
a Barfos Bicess popes MOVs RRBBRED'CRODs | 3° RD WORD 
100000 000010 BIT BOLT, RKCS2(RS) 
14 rt BEQ eae 
is pee «a OME aa 
037730 booi3? pasees IMP seoP ;ABORT DRIVE 
t 7S$: 
12 3737 001674 001350 CMP RHTAB, FRCYL ;CHECK WORD O (CYL®) ONLY 
831 2 1401 BEG 73$ i BR F 
a314 104311 ime RROR 3il ; CYL WORD HEADER ERROR 
B318 . 
831 
1 3737 001352 012054 CMP TOCYL,LC Bee Pregone” 
1352 si ° YL : Pe po THER 
; 1 36404 - IMP 1s 
737 047430 ; SWTST 4 8 IS SET 
Bel Hos SRE a. RA eee 
Re "% UR Ti Swat Peo APPLY lane 
037774 gS: , 
004737 o4s4e4 J PC, SUBCLR 
B3a000 104024 2RROR 24” ;CERR AFTER SCRL 
o40002 013765 001352 o00020 76S: MOV TOCYL,RKDC(RS) ;CYL® 
8334 040010 012737 000017 003322 MOV #SEEK,HCS1 
335 O40018 737 043434 JSR PC Doemo O SEEK CMD & GET CONTR READY 
336 04 104131 ROR 1 RO RDY AFTER SEEK CMD. 








Dl 


CZR6HEO UNIBUS RK& DR PRTI MACY11 30A(10S52) 2@S-JAN-78 12:08 PAGE 159 SEQ 0159 
CZRGHE .P11 "BEE 12:00 137 SEEK TO ALL crs FROM 0 & READ HEADERS 


fob] 003360 13 Pesrarte 
100000 003322 Beg RR,HCS1 
21 ;CERR AFTER SEEK CMD. 


;FIND_ ATTN 
; aa AFTER SEEK CMD 


;CERR AFTER SCLR 
001352 012072 CMP fon sh AST ov DONE? 
T 


YL fEtse el) S BNOTHER 


o4s4e4 77S: PC, SUBCLR 
ZRROR 24’ ;CERR AFTER SCLR 


SSLPROR (Si f4OR B was ser 


: 

Be 

Peu0s4 

poe739 

a 3 

ie a conn a eet 
See 

oe 

nee 






B49 uoreo OME (META osu ge 
BNE 8 eRe SarOL TION IVE 


INLI 
14S: 


Beige) 140740 ee ame YES Re Recon] TON IVE 


16S: 


001410 LPFLG 
an i in te 


[eet an arte te mt ore Pan teat on cs ie 


PPPPIPIPP LESS. 


SSaaaaaaSe 





: 40 SEEK TO ALL CYLS FROM LAS 
iecreruaeuyaunsersaunseciacnsecnsersersaerseusaereenracrsersasy 


BE FEI eong, coum NO eLsSTIMES D0 AJ TERETZON 


2 7 o4s424 JSR PC, SUBCLR 
Buosue OBuas4 ERROR 24’ ;CERR AFTER SCLR 


LL CC tt ttt ttt ttt tt 


CZR6HEO UNIBUS RK& DR PRT MACY11 = 2S-JAN- SEG 0160 


4. 78 12:08 PAGE 469 
CZRGEHE .P11 2S-JAN-78 12:00 SEEK TO ALL CYLS FROM LAST CYL & READ HEADERS 
012054 000020 MOV LC,RKDC(RS) ;QUICK SEEK TO LAST CYL 


Bagaaa waar ie Pe Bote $20 DO SEEK agit GET SON CONTR READY 
694190 cages ier pepatte. if ND_ATT 


1 ATTN AFTER SEEK CMD 
100000 003322 ie RR,HCS1 
1 


;CERR AFTER SEEK CMD. 


-_— 
a 
x 


K 
g* 0 


ows4e4 =, 64S: PC, SUBCLR 
E 24 ;CERR AFTER SCLR 
1 001 MOV LC,F TUP FROM CYL 
§150e3 wikis MOV ben FOeYL TUP TO CYL 
1S: 
SCOP1 
001100 MOV aSTACK, SP ;RESTORE STK PTR 
o4s4e4 Jsr PC, SUBCLR 
RROR ;CERR AFTER SCLR 
76 
i 8 novo RARYS | SETUP 
MOV Bee Cyt DIFF 
4 SUB 
i MOV MP3,C bir ?ERROR PRINTOUT 
0013S2 000020 MOV TOCYL,RKDC(RS) ;GO TO CYL # 
7 00332 K,HCS1 
Basah4 . J Rc BOND DO SEEK of tBe T CONTR READY 
ERROR 1 K CMD 
ae 003412 noy f .PIP!D. wee RG, Re DRA>, 5E TED AO 
V!D. SPOK!D. CART!D. DOOR!D. BRHM!0.SSP>,£.Al 
t Basues 1PE* By 
o44eS2 JSR Pc, MSG ;CHECK MSGS ot a 
, HORD 'T.B2!0 : tFIED HERE 
i Soon 
RROR ; RROR 
RROR 5 1 
RROR : B1 


q4ge bates oS Mov  fS5008°TEMPL © SETUP TIMEOUT 


—— zRror ise" '® TAO ATTN AFTER SEEK CMD 
100000 003322 BIT BCERR,HCS1 





& eco 


-Pll 





aNe7B 12:00 


aE Bm 





001364 


001100 


MACY11 7" 


003412 


Bo346 
Bos430 


0013S2 


65S: 


38: 


see wt ALL cts OFROM CAST: Ave & READ HEADERS 


ERROR 


it ;CERR AFTER SEEK CMD 


| seen - SPIN!D. Y!0.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
'0. carT!6 ;EXPECTED Al 


I eFED MSG B1 
ile seit aon me 
f gir a: | SPECIELED HERE 
3 ea Bt ERROR 


933 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 


$n ae eathe) ;ORIVES 
1 


BB RIMESSLAPBUD BLL GAST™ PO” 


TSTATN ;TEST FOR ATT 
154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


.AO ;EXPECTED MSG AD 







g E BO. . SPIN!D.DRDY!0.VV!D.DRA>, 


SPOK!D. cant: 6. 'D. : ,E.Al ;EXPECTED Al 
i Bl ft bets :BFE0" MSG Bl 
#2,E. CTED MSG 62 
83, “BS iRise 8 FOR CTED MSG B3 
PC, CHKMSG ;CHECK MSGS AO sree a1 ,8 
T.A2!T.B2!0 SPeCte ED HERE 
4 CLEAR CMD 
er G Al ERROR 
Bl ERROR 
cYLADD, TOCYL 
207 ;CYL ADDR IN RKMR3 NOT=RKDC 
#STACK, SP ;RESTORE STK PTR 


SEO 0161 


a 


GREE 9 Tog NGO cB HEUZP HEU al En. 4 meso reson se0 0162 


Bui oos OB uas4 sponte ZRROR ~ ema ;CERR AFTER SCLR 
i i8ta Bisves 01358 00020 Sov | FOGYCRKOCCRS) ;CYL & 
is 1016 012700 001674 MOV #RHTAB, RO — 
Bele i Bb8?3? —— Hex B<PRUEED? . ;D0 DATA XFER CMD & GET CONTR RDY 
8S1 1 1 ERROR 17 :NO ROY AFTER READ HEADER CMD 
ge18 i gs2737 100000 003322 I RR,HCS1 
1 174 174 : RR AFTER R CMD 
bof ee ae 
1 ooooe4 69S: MOV RKDB(RS 31’ST WORD FROM SILO TO RHTAB 
i 5:88 HRB 


100000 000010 BIT #OLT,RKCS2(RS) 


4797 7 
Oat? 3 sees Thon pg,ostar ;DLT AFTER READ HEADER CMD 
ies ES Re ba? ARBNT NG, OUNCE OF Tess 


70S: 


2eee S2PP2P? PEP 2PPPI7T77 FF? 


b= lh pe 


fee few paras bt babs pop pe 

QUAN Renseey See BFeeoas 
ooo 
eb be 
Bae & 
33 
rs 
Nn 
Bz 
Na eee 
y Page & 
233 
—wE 
So oe 


b6i4 001674 001352 cn RHTAB, TOCYL ibe fr WORD O (CYL#) ONLY 
1 310 ERROR 1 CYL WORD HEADER ERROR 
68S: 
ll o441s SCOP1 
Bui ise 12706 001100 MOV aSTACK, SP ;RESTORE STK PTR 
114 7. O4s4, Pi PC, SUBCLR 
Bative B40E4 - 2RROR 24 ;CERR AFTER SCLR 
2 Vv 4 Ss 
Buiiee 819786 Barked Boddss Y PaCS SRRSCRs) -reTuRN To CYL s 
041164 013737 001350 001354 MOV FRCYL, CCYL ; CURRENT CYL FOR TRUERROR ROUTINE 
1 7 Vv a BK : Sl 
1 Bos? Ba8a44 ees ney Pe, Ho ;D0 SEEK en & GET CONTR READY 
1 1 ERROR 13 :NO RDY AFTER SEEK CMD 
t 8 Baasis 003412 ney a $9 Preto. .SPIN!D. VV!D. DRA>,E.AO ;EXPECTED AO 
1 bd 1 7 BA 003416 MOV #<D.FWD!D. SPOK!D.CART!D.DOOR!0.BRHM!D.SSP>,E.Al 
O4¥1226 012737 000001 d03420 MOV #1,€.81 
8561 041234 004737 O442S2 JSR PC, CHKMSG ;CHECK MSGS AO,B80,A1,B1 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE .P1l 25-JAN-78 12:00 


8S62 041240 000003 


8563 O4le4e 


Riess 
ay 


SH es PRET aa 
2 P27297909 S9RERTE 9F9099 


eh 


R BINGSTRES SSP0Gce FeRINe Be 






~ 


ee ll 


Rickoes SKkeISoe 


Boiaze 


o44eS2 


MACY11 30A(10S2) 
T4O0 


BB44z8 


003322 


003412 


BB3528 


oo3424 
003430 


1 
00332e 


4S: 


71S: 


728: 


738: 


H1 


25-JAN-78 12:08 PAGE 163 SEQ 0163 
SEEK TO ALL CYLS FROM LAST CYL & READ HEADERS 
.WORD T.A2!T.B2!0 -& MSGS SPECIFIED HERE 
ERROR 203 3MSG AO ERROR DURING SEEK CMD 
Fes ist BP EERE 

RROR ;MSG B1 ERROR 
Mov  F2BRo8°FERPE = sserur  trmeour 
J FaTTe sEIND ATTN 

ROR : TTN AFTER SEEK CMD 
Be RR,HCS1 : 
BEQ 71§ 
ERROR 210 ;CERR AFTER SEEK CMD 
nov Bam .SPIN!D. Pape TED (a. pO, ‘ee ;EXPECTED MSG AO 

cant: B Bob8 Bere: Be >,E,Al ;EXPECTED Al 

BY epin'o- SFE3° Fiabe, ; 

V che B2 eae fo" Pot HSE PECTED MSG B2 

#3,£.83 MSG ID FOR EXPECTED MSG 83 

JSR 


AFTER SEEK CMD 


0 pieoned 2 CHECK MRS eas SPECIFIED HERE 


iMSG Bl ERROR 


1 
a 
1 ;CYL DIFF NOT CLEARED AFTER SEEK CMD 


8c BRK Ces RS} 
SUNIT or ;ORIVES 


FeOoch "1B RSIVESALAMBGAOR B.BEL ERT® 


TSTATN ;TEST FOR ATTN 
re ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


B<0F0. -SPIN!D. ORO Oo¥¥eP, ORS Ad ;EXPECTED MSG AO 


"Ba 
sinesege' CART! ts ates Bae Rr CPECTED EAL ;EXPECTED Al 


se,—.B2 ) FoR XPECTED MSG Be 
#3,£.83 iMSG mee 1D FOR e ENECTED MSG B3 
PC, CHKMSG ;CHECK MSGS AO,B0,A1,B1 


wee oS ane 78 B12: :00 apace G0 sek 70'A ALL CE c¥cé FROM LAST 2 CYL & READ HEADERS oe ee 





1514 ; T.A2!T.B2!0 & MSG CIFIED HERE 
i i FOR oe nee a8 Eaaoe BROR FTE B DRIVE CLEAR CMD 
1 1 RROR ; 1 ERROR 
1 1 ERROR 266 :MSG B1 ERROR 
1 3737 001364 001350 CMP YL@DD, FRCYL 
1 1 Q & 
1 10424 PE ROR 3 ;CYL ADDR IN RKMR3 NOT=RKDC 
1 S$ 
IED Ase sr 
1 i2 001100 MOV aSTACK, SP ;RESTORE STK PTR 
1 7 o4s4e4 JSR PC, SUBCLR 
By izes OBdoe4 ERROR 24 ;CERR AFTER SCLR 
1SS4 001176 CLR sc 
Suised nee p48 oo0020 MOV = DC(RS) ;CYL 8 
1 1 1674 MOV 
1 003322 MOV Ef BD», HCS1 
Zor RS RETPATER eRe SERS 
1 100000 003322 BIT ie HCS1 , 
Bes tele 1 Fi ERR AFTER R RE HEA R CMD 
1628 35 1fec18 iBeonr 
cis lice A) Sez ie se aa Bare oT 
86 ratte pies8 opens 75S: MOV Rue fe): (ao): iB:RD WORD FROM SILO TO RHTAB 
Be 1640 Ol nov RKDB(RS)'(RO)+ :3°RD WORD 
ab 
8654 164 e7 100000 000010 BIT SLT, RKCS2(RS) 
8 1 ? 045074 GSTAT 
1 104173 ERROR 4 ;DLT AFTER READ HEADER C 
1 OL 056235 YPE MSG18 tABORTING BALANCE OF TESTS 
86 1666 1 042662 —_, IMP sEOP :ABORT DRIVE 
16 3737 001674 001350 CHP RHTAB, FRCYL ; CHECK WORD O (CYL) ONLY 
4 17 104311 74s ERROR 311 > READ CFL ‘ FORD HEADER ERROR 
1704 3737 001352 012072 MP TOCYL ,FC L CYL DONE? 
BEES 1712 140s sro s° ‘BR F YES 
1714 3 1352 DEC OCYL tELSE DO ANOTHER 
B67 1? 137 034, a IMP 1$ 
8673 041724 004737 047430 : ISR PC, SWTST ;SEE IF SW 14 OR 8 IS SET 





CZRSHEO UNIBUS RK6 OR PRT1 MACY11 30A(10S2) 2S5-JAN-78 12:08 PAGE 165 SEQ 0165 
CZR6HE . P 25-JAN-78 12:00 T4O SEEK TO ALL CYLS FROM LAST CYL & READ HEADERS 
8674 041730 oo00s1S BR TST41 3;GO TO NEXT TEST 
8675 :RETURN HERE IF SW 14 IS SET OR 
26 :SW 8 WITH SWR <7:0> APPLY 
8 041732 8S: 
58 O41? 004737 o4s4e4 JSR PC, SUBCLR 
? 17 104024 ERROR 24 ;CERR AFTER SCRL 
eres 041740 013765 001352 o00020 77S: MOV TOCYL,RKDC(RS) ;CYL® 
Oa 75M bo%737 erat specs moe Late + $20 EK T CONTR READY 
Boge 1380 131 ZRROR nS OS RY ater’ SEEK & 
1 37 14 003360 MOV TEMP 
Bee 1355 Bia 3 di90 JSR Pe,rarte ;FIND_ATT 
86 1774 EA ERROR :NO ATTN AFTER SEEK CMD 
869 1778 100000 003322 BIT agere, ,HCS1 
140 BEQ 
2006 10421 ERROR 210 ;CERR AFTER SEEK CMD. 
66 gueo10 737 o4s4e4 79S: ISR PC, SUBCLR 
Bb 14 1 ERROR 24 ;CERR AFTER SCLR 
8698 e016 9837 7 001352 012054 CMP TOCYL,LC LAST. CYL DONE? 
001 BEQ 7 
e028 001352 INC TOCYL :ELSE DO ANOTHER 
z 42 BR 778 
g o4s4e4 78S: JSR PC, SUBCLR 
Bus040 To4os4 ERROR 24’ . #CERR AFTER SCLR 
901176 CLR CAPE 
141 TST LPFLG 
S 4 Ti 1 kid Ett RR :SW 9 WAS SET 
a 177 133038 80S: INP get PERR >SwW 14 OR 3 WAS SET 
12 41 108: INC —LPFLG 
714 ast 137042 BIT aswd, ;LOOP ON ERROR? 
1 315 BNE 83 :¥ RECONDITION DRIVE 
ia i 1 o4osoe won IMP es ?RETURN TO MAINLINE 
1 1 37 001410 . INC LPFLG 
7 1 77 O01 137022 BIT SWS, ISWR ;LOO° ON ERROR? 
7 1 BNE ?YES, RECONDITION DRIVE 
2 i 33 040770 - IMP *RETURN TO MAINLINE 
7 1 001410 J INC LPFLG 
87 1 651000 137002 BIT #SW9, ISWR ;LOOP ON ERROR? 
87 1 le7s BNE $ :YES, RECONDITION DRIVE 
B7e6 os 140 I 041252 we IMP 45 ?RETURN TO MAINLINE 
8728 144% 005237 001410 - INC LPFLG 
8729 O42150 032777 001000 136762 BIT #SW9, ISWR ;LOOP ON ERROR? 


ceneieo. UNIBUS RK6& DR_PRT1 
Pil 2S-JAN-78 12:00 


31 Oeie0 


042164 


saufs? 
137 041540 


an 


013737 


MACY11 30A(10S2) 
T40 


001174 


003322 


003360 


003322 


001352 


al 


K13 
25-JAN-78 12:08 PAGE 
ALL CYLS FROM LA 


SEEK TO 
BNE 8$ 
JMP 5$ 


CYLINV: 


eer gi SEEK 10 ALL INVA 


tT 


166 
ST CYL & READ HEADERS 


Yi RECONDITION aPRIVE 
+ RETURN TO MAINL 


96-36 06 9 9 HE EH ab eH HE SE HH a a a aH 
YLINDERS 


O ALL INVALID C 


3% 
THIS TEST VERIFIES THAT "INV ADDR’ & ’SEEK INCOMPLETE’ IS 
a PRODUCED & THAT HEADS DO NOT MOVE OR UNLOAD IF AN ILLEGAL 
;# CYL IS SPECIFIED IN A SEEK. 
:# INVAL D CYLS BRE 633 THRU 777 (8) FOR THE RKOG 
is & 1457 THRU 1777 FOR THE RKO7. 
* AERESEERESRESEESESESRESRESREREEREERURNEREERESREREGEEEENEEEERES 
wise SCOPE 
#1 STIMES : ITERATION 
MOV astac + APSTORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV BSEEK HCS1 
JSR c, DOCMD 300 SEEK CMD & GET CONTR READY 
ERROR nS ?NO RDY AFTER SEEK CMD. 
MOV TSOO00, TEMP1 
JSR pc, Fatt2 ;FIND_ATTN 
ERROR 1 !NO ATTN AFTER SEEK CMD 
BIT sgnest 
ERROR 1 ;CERR AFTER SEEK CMD. 
64S: ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR 0 
CLR FRCYL ;FROM CYL 0 
MOV LCP1, TOCYL 51°ST INV CYL 
1S: 
SCOP1 
MOV #STACK, SP ;RESTORE STK PTR 
ISR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV TOCYL , CALDIF 
MOV TOCYL; RKDC(RS) 
MOV BSEEK, K'HCS1 
JSR emp ;D0 SEEK CMD & GET CONTR RDY 
ERROR 1 'NO ROY AFTER SEEK CMD 
ISR PC, TSTATN 
ERROR 246 ;NO ATTN AFTER SEEK TO INV CYL 


SEQ 0166 


C 0 UNIBUS RK 
EfRenE. PL 





dO Ob he 


WONOU£ Wiu-O 


ep ee eDeD oo eDeL 


Snes 








104155 


2eSanc7e” 13: :00 


000040 


045074 
000040 


MACY11 30A( 1052) 
T41 


003352 


003352 


003352 


78: 


66S: 


25-JAN-78 12: 
SEEK TO ALL INVALID 
Bae 8. IDAE , HMRS 

RROR Sa, 
BIT 80-FLT,HMRS 
PRROR 207 
BIT #9.PIP,HMR2 

Ror 380 
BIT #0.DSC, HMR2 
BNE & 

ERROR 251 

INC BYPCERR 

MOV #<D. DSCtD. SPINED. 
MOV #<0.SKI'D.FL 0; DRE 
MOV a<O. 'D. CAR 
MOV #1,€.B1 

JSR PC, CHKMSG 

: T.A2!T.B2!0 
ERR 252 

ERROR 253 

Emon Eee 

ERE YLDIF, TOCYL 
Erion 

CMP CYLADD, TOCYL 
BEQ 8S 

ERROR 257 

MOV #CCLR, RKCS1(RS) 
MOV SUNIT; RKCS2(RS) 
MOV #RECAL, HCS1 
JSR PC ,Doch 
ERROR 1 

roy SOR RCCEE A 
MOV act EAR Keet 
ISR P CMD 

ERROR 15 

JSR PC. TSTATN 

R bbs 

RROR 154 

JSR PC,GSTAT 

BIT #D. TDAE, HRS 
BEQ 65$ 

ERROR 155 


L13 
08 PAGE 


167 
YLINDERS 


; IDAE NOT SET AFTER SEEK TO INVALID ADDR 
;FLT NOT SET AFTER SEEK TO INV ADDR 
;PIP SET AFTER SEEK TO INV ADDR 


;DSC NOT SET AFTER SEEK TO INV ADOR 
; BYPASS Che EKER FOR CERR_IN GSTAT1 


iba) VV!D.DRA>,E.AQ ;EXPECTED AO 
BAS SeHMED. SSP>,E.AL 
; CHECK MSGS, AQ BO,A1,81 
ECIFIED HERE 
;MSG AO ibeb a ER SEEK TO INV CYL 
?MSG BO ERROR 
?MSG Al ERROR 
?MSG B1 ERROR 


;CYL DIFF IN RKMR2 NOT=CYL DIF 


;CYL ADDR IN RKMR3 NOT=RKDC 


sD8 RECAL CMD & GET CONTR RDY 
;RDY NOT FOUND AFTER RECAL CMD 


;ORIVES 

;D0 DRIVE CLEAR CMD & GET 
;NO_RDY AFTER DRIVE CLEAR 
;TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


coum RDY 
CMD 


tBR re y AQARE IS CLEARED 
;IDAE NOT CLEARED AFTER RECAL CMD 


SEQ 0167 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE.P11 2S-JAN-78 12:00 


BES ov2620 
8844 


er Rie 


012765 100000 
013737 O014le 
' 737 044044 


005237 001352 
023737 001352 
195 
1 o42e7e2 


MACY1i 30A(10S2) 
T41 


000000 658: 
003362 


012064 


2S-JAN-78 12:08 PAGE 168 SEQ 0168 
SEEK TO ALL INVALID CYLINDERS 
aa #CCLR, RKCS1(RS) 


1,TE ;LOOK FOR ATTN FROM RECAL 
JSR ae 


;NO ATTN AFTER RECAL CMD 


TOCYL 
CMP sor” 


CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE.P11 


ges? 
88 


8860 


443 


Seeehnee 


igatottetay 


Zan— 


@ 
3a 


PEE RULeretepeeERL tC Ge 


preterdertes] 
wo 


Bae 


006776 


0001 





2S-JAN-78 12:00 


001102 
007730 


MACY1L1 ar os 


001174 


001220 


000 
042116 
020123 
001230 


001216 


IF THE 


SEOP: 


SEOP1: 


SEOPCT: . 


SENDCT: . 


SGET4e: 


SENDAD: 
SDOAGN: 
RTNAD: 
SEMULL: 
NDMG: 
STSXY: 


1S: 
es: 





2S-JAN-78 12:08 PAGE 169 
ND OF PASS ROUTINE 


-SBTTL END OF PASS ROUTINE 
5 p ME EE EE EE EE KE RRR AERA RR RR REEL EEE ES 
j KINCRE THE R ( ) 

i YPE “END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 


RES A 


SCOPE 


3 MONITOR GO TO IT 
;*¥IF THERE ISN’T JUMP TO STSXY 


SDOAGN 
(PC)+, a¢PC)+ 


SENDMG 
$PASS,-(SP) 
SENUL 
date 55 
$f DAGN 


PC, (RO) 


a(PC)+ 
STSXY 


-1,-1,0 He 
<1§><12>7END PASS’ #7 


BAPTENV, SENV 
#2, SPASS 
STSTNM 

STS 


INCR COUNT FOR # OF DRIVES THAT ARE CHECKED 
tacit PRESINT TESTED? 


IF 
IF NOT , TEST NEXT DRIVE PRESENT 


2832 
aaa 
S234: 

he 
oom 
3 3 


BeBR 
33 
mimi 
5a. 
z 
33 


eee ee wees ee eseseseses 
Mews weseresesesweseseses 


im BoD 
+ 
- 
- 


TURN 
NULL CHARACTER STRING 


- RUN UNDER APT ? 
;BRANCH fF NO 
-TWO PASSES DONE ? 
;BRANCH fF NOT 
:CHANGE THE TEST NUMBER 
; LOOR WAIT FOR LOADING THE NEXT PRG 


SEQ 0169 


IBUS _RK& DR PRT1 
25-JAN-78 le: 


: 
A 
5 


sy | 


ONO CW 


v 
ee 
Be 


DBBDD 
ee 
po ones 
a 

ro 

ie 
—- 

58 
xe 
G8 


001344 


001344 
054516 


ooo04e 
001230 
001140 


WWWW 


Re 


ooo001 


P222LILIZLE BEEP 

ZPETHENSNS? BING 
Ee ieiMet= 
ONENO 
Bae 


PEPEPES 


000070 


177770 


EERSLOUAIRRMR SSeS set Sau SpRaRRO MIE OO TON 


PEPPPLELES 


: 


MACY11 30A( 1052) 


000001 
000176 


001134 


Q1l4 
08 


- Wiewmorite 12: PAGE 170 


SUBROUTINE 
-SBTTL SUBROUTINES 
; SUBROUTINE TO CLEAR ALL FLAGS FROM DDOUMP THRU DOTIM 


CLRFLG: MOV #0DUMP,, RO 
MOV #-17.,R1 
1S: CLR (RO)+ 
me 
NE 1 
RTS PC 


: TYPE PROGRAM ID IF FTITLE=0 
’ 


TITLE: TST FTITLE 
BNE 
INC FIITLE 

.SBTTL GET vacut POR SOF TWARE sitter Re : LigreR 
rst seve T WE RUNNING UNDER XXDP/ACT? 
chee SEnv, w1 33 WE NRG UNDER APT? 
CHE Su, aSHREG ema REG SELECTED? 
GTSHR a A ae own SETTINGS 

bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 

1g RTS PC 


IVE NOS.: TYPED IN & SET 


} ROUTINE TO INPUT ; 
REGISTERS APPROPRIATELY 


;DRIVS, DRIVO-DRI 


GDRVS: ROLIN 
MOV (SP)+,RO ;GET STARTING ADDR OF ASCII STRING 
MOV 8. ,R1 *SET UP COUNT 
1S: MOVB (RO)+,R2 :GET AscIT CHAR 
BIC 400 Re *MASK HI BYTE 
MOV sORIVO,R3 :DRIVE FLAG ADOR 
MOV yR4 
2s: CMP RY, Re ;WAS TYPED CHAR O THRU 7? 
BEQ 3$ *BRANCH IF YES 
TSI (Ra)+ :NO, INCREMENT DR FLAG ADDR 
ane RY, #70 
BNE 2s ;S/B 0-7 OR TERMINATOR 
TST Re 
4§ 
CMP R1, #-8. 
BEQ 6S ;DEFAULT ALL DRIVES 


CZRGHEO UNIBUS_RK6 OR PRT! MAC V LL pet ORe le FoR Sorta “ih Bel Che 


CZR6HE .P11 2S-JAN-78 12:00 
896S 043254 005037 003472 
043260 000207 


B5537 cose 


BMSS1E AbGiS> O67i34 


o0S201 


ORS 3e 003472 


Bie 


14 
001264 
177440 001264 


us 
1 001314 
ne Re: coe 
7 00021 4 
43418 0 00131 


16 013700 001 
s4ee Ole72e0 O50 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


0 
; 
S 
5 
: 


: 


a er SO ee 
ae INE Baivs ha Biot wilt Uoaives, TO BE TESTED 
Pe Tp eh 9 come ¢ one wor, 
BR i Pah cattle ne ERO : 
48: es pRaSRT OH aRT ALL OVER 
“ek Bee Pike ie Eon, 
es: INC SIZFLG :DO TEST 1 (SIZING) 


? ROUT INE TO INPUT RKBAS OR DEFAULT. 


GBA: ~ T 
Rov. {aP)+,RO ;GET LOW ORDER FROM STACK 
BEQ 1$ ;BRANCH IF DEFAULT. 
Rs séB ee 

18: we 9h77440, , SBASE ;DEFAULT VALUE 


? ROUTINE TO INPUT RKVEC OR DEFAULT 


GINT: RDOCT 
a (SP)+,RO ;GET LOW ORDER FROM STACK 
Q ;BRANCH IF DEFAULT 
sR » RKVEC : 
2s: Z 72 Exo SETENT 
1$: OV #610, RKVEC ;DEFAULT VALUE 


ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


SETINT: MOV RKVEC, RO 
MOV #INTER, (RO)+ ; INTER ADDR TO RKVEC 


SEQ 0171 


cc tsngeetinacianteetaatatianl: 


eSRene-Pii 26-9 


phere Le: oo 


piace 013719 001316 


PPPIIIF 
seenhes 


PIPPI22 


rae 


stan 


2 
2 


i ta 


bie 


oo 


poate 
043530 
ooo00de 


001170 
00332e 


3580 


28 


ee ee a sco 0178 


ooocoo 


RKPRI, (RO) :PRS TO RKVEC+2 
Res Pc’ , 


THIS ROUTINE SETS in IN — IF DRIVE UNDER TEST IS AN RKO7. 
;ENTER WITH COMMAND 


bocn: Rov hoi AKC ters) ipp-commann “07 
are “tRbY SED HERE OI RRO? ROY 


BOR 8g, (SP) ELSE SKIP OvER ERROR 
'THIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS 
*& REQUIRES A LONGER TIMEOUT 
BATCMD: BIS STMP4,HCS1 ;ADD CDOT IF RKO7 

MOV sooo) Tene :D0 CMD 

MOV T MPL 

JSR PC, FROY ;FIND CONTR RDY 

8 4S 

, (SP) 

RTS PC 
ROUTINE TO FIND a Tn ene ER READY (RDY) DURING A DELAY 
ae WITH AC 

Un $2 b Pate ay deges ane 

Se i moyen E EITHER CASE 


ane . SROY, RKCS1 (RS) 
Pi 


RT re CKCERR ibe _ afESS_IN HOLDING REGS. 
“ ESL jes 


;CHECK FOR SPECIAL CERR 


ROUTINE TO FIND CONTROLLER READY & STORE DRIVE REGS ONLY 
FROYI1: BIT BRODY, RKCS1(RS) 
BNE 


;CHECK FOR precim. CERR CONDITIONS 
RTS PC ;NO RDY, EXIT 





CEREHE. 


3078 








ASE 


VORP Oww Von Low OSB VERE 


ee a ee te a ee ee te ee be ee eee IOI ¢ i: : SOO 
wt 


ie 





0 UNIBUS RK 
Pil 


£ 


2s-Jan-78 12:00 





1 
tiem ie 
Ooze 
465 31 


4 
i 
37 003362 


MACY11 30A(1 


003341 


000017 





18: 


E14 
Ue FOn”SOr Thane Sui TCH REGISTER 


;CHECK FOR SPECIAL CERR CONDITIONS 


wees 


maha ;SKIP OVER ERROR 
RKMR (RED HRS 
PC. CKCERR 


: STORE ALL RK611 REGISTERS IN HOLDING REGS 





HOLD: MOV 
HOV 
HOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV : 
Res PC 4 
NE TO CHECK FOR cT A 
ROU IRN IF ATTN NOT PRESEN LERR Of CONDITIO TION) 
TURN +2 IF ATTN PRESENT (SKIP O OR) 
oe MOV RY, -(SP) ;SAV RY 
ere SUnTT RY HASOF +1 
Ee 1 . ; cH F ATTN NOT PRESENT 
Vv (SP)+_,R4 iAACR R 
800 , (SP) INCR RET ADDR TO JUMP OVER ERROR. 


1S: 


1S: 


TH ai 
faa ip a ae ees 
TAINED THE RETURN FOR EITHER CASE 


(SP)+,R4 ;RESTOR RY 


aTUS I 


Me IN GONDS IN TE cites cai THAN 1 SEC 


FATTIL: R4,-(SP) SAV RY 
3S: HOV o-1, TEMP1 ‘ 
MOV SUNTT RY 
ITB TN(R4Y) ,RKASOF+1(RS) ;FIND CORRECT ATTN 
MP1 
1§ 
EC TEMP2 


SEQ 0173 


tt bb dm bb bs he be 
= 


DDDODDD000 00000000000 
SOVFHEGO-“SBOVERLO 


a a ee ee ee ee eh eh ee ee 
£ 


eereiiiiiiiiti 


OO0DODNODONVNWUW 


BERRIES BITZI Soe SRN TOS 


eee eee eWelvelvelvenerventelte salve lys) 
ee ee ee ee Be pe he ee ee 


TBUS_RK' MACY11 30A(10S2) -JAN-78 12:08 174 74 
:00 GET VALUE FOR SOFT aiitc REGISTER we 





1 BNE 

198 SR BMRA , BEE CA TEST status 

114 i V (SP)+,R4 :RESTOR RY 

1 2s: CLR RKMR1 (RS) 

1 JSR GSTA ;GET STATUS AFTER ATTN SEEN 
1 MOV (SP)4+,R4 SRESTOR RY 

i ADD #2, (SP) :SKIP OVER ERROR 


i ROUTINE TO FIND 
sENTER WITH COUNT IN 
; RETURN +e ne ATTN F 
‘STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 





lug 1222 oe Sy SUA 745h4 namie 
146 pe45i5 000017 : BITB TNCR4Y),RKASOF+1(RS) ;FIND CORRECT ATTN 
188 003360 MPL 
1 
168 goog26 L MR1 (RS) ;SELECT WORD 0 
1 J GSTAT ‘GET LATEST STATUS. 
174 nov (SP)+,R4 i ees TOR 
goon is: GR Ranma 
ig aoe EOE RY ; RESTOR RY 
1 ooo002 AOD #2, (SP) :SKIP OVER ERROR 
16 R PC 
j ENTER WITH A COUNT IN TEMPL 
: YI X 17 US/ITERATION + 12 US TO EXIT 
WHEN EOUNT is ities D ON AN 1170S. 


20 Bie 003360 : by: oe sv 3:8 tg 
337 003360 MP1 76.8 U 
ee is: Ms Be 58 Ue 
; THIS ROUTINE TYPES BYPASSED DRIVE®. ENTER WITH DRIVE® IN RO 


3 04401 056130 BYP: TYPE MSG14 ;BYPASS IVE 
10046 MOV RO, -(SP) i 7 SAVE a. TYPEOUT 
4 104403 TYPOS ::GO TYPE--OCTAL ASCII 
001 BYTE 1 :: TYPE 1 DIGIT(S) 
24 000 _BYTE 0 ::SUPPRESS LEADING ZEROS 
250 000207 RTS PC 


Se ey ee a a st0 0175 
; THIS ROUTINE READS ALL MSG A&B WORDS & CHECKS THEM AS REQ’D 


o4yese ree po0000 001466 &HKMSG: MOV «a SP),CHKFLG =; PASS MSGS TO BE TESTED 
AS BGR795 rr i Bur RET ET URD DRIVE £ CONTR STATUS 


woos, WS BREE oo 
sO BPE 
ais BIS ;ADD EXP. DRV TYPE 


WOD0DDOOUOWUW 
a te ae he he 
BBESFRLEW=ES | 


9200 
ee 044326 013746 003360 MOV seotaoe ;SAVE TEMP 1 

4 2 003360 MOV MP1 

eases B45 35 pa435 JSR E<PQac6r ;GET PARITY FOR MSG AO 
3505 044344 013737 003360 003412 MOV TEMP1,E.A0 
137 & 003360 MOV E.Ai, TEMP 

$208 OaNe0 a re Beh JSR _—«—P, SBPAR ,GET PARITY FOR MSG Al 
ai 364% 013737 843360 003416 MOV TEMP1,E.Al 
1 3360 Vv TEMP 1 

12 B4H05 Bora? BaFae4 ‘ Woy = Be Papen .GET PARITY FOR MSG AZ 
13 0137 003422 MOV TEMP1,©.A2 
1 37 4 003 .B0, TEMP1 

ie Bais Bre Bees ooo Be iGET PARITY FOR MSG 80 
12 003414 v 1,£.80 


Basuig 964737 Qazasq O8980 wen «BCL SBPAR ;GET PARITY FOR MSG Bl 


3213 
3¢ 044444 013737 003360 003420 MOV TEAP1,€.61 
37 003360 MOV E. TEMP1 
7 JSR é ;GET PARITY FOR MSG B2 
3 4 0137 003424 v TEMP1,E.82 
ge pe06 37 5739 00336u MOV E.83 TEMP1 
Boi? JSR :GET PARITY FOR MSG B3 
3638 137 5360 003430 v tie E.83 ‘ 
3 1 1 MOV )+, TEMP 1 ;REST TEMP 1 
en puaete 615533 BB i ise 001172 MOV SCAPE,STMPS ;SAVE ESCAPE 
044524 raat 003372 003412 CNP He AO, E.AO OR yF MSG AO 
O44S4E 001176 MOV #1$,SES , " ptup APE 
$3 pies Oie7a2 MOV es =( LBS AOR 
3 044544 000207 RTS & RETURN TO MAINLINE ERROR 
4S46 777 1 134364 : T #SW9, ISWR RE FR NE ERROR 
3549 S4 107 Sotees ~~ Ss Bie - Re oR TE LOOP ON NAL RROR 
9242 O445S6 062716 oo00u02 2s: ADD #2, (SP) UMP RET ADDR TO NEXT ERROR 


9244 044562 023737 003374 003414 or H.B0,E.80 oad MSG BO 


i i i re 


H14 
o8 


CZREHED UNIBUS RK& OR PRT1 MACY11 30A(10S2) 2S-JAN-78 12: PAGE 176 SEQ 0176 
Pil 2S-JAN-78 12:00 GET VALUE FOR SOFTLARE SWITCH REGISTER 
4 BEQ S$ 
3548 ee we 344 044604 001176 MOV ais SESCAPE id sup ESCAPE 
1164e MOV (SP, =(§ T ADOR 
Ss eo RTS 5° TORN TO MAINLINE ERROR 
001000 134326 4S: - BIT sale RETURN HERE FROM MAINLINE ERROR 
925 an ae BNE :& BR IF LOOP ON ERROR 
14 & oo0002 S$: ADD #2, (£°) :BUMP RET ADDR TO NEXT ERROR 
044620 003376 003416 CMP He A1,E.Al ;TEST MSG Al 
5 nee BEQ :BR IF OK 
o44642 001176 MOV to SF SCAPE 
16 MOV i,- 
ane BBIge) 001000 134270 7S: BIT #SW9, ISWR 
ooo002 gS: BOB #2, (SP) 
9264 S& 003400 003420 CMP H.B1,E.81 ;TEST MSG Bl 
4 res BEQ i :BR IF OK 
37 044700 001176 MOV #1 s, SESCAPE 
MOV (SP); =(SP) 
76 RTS PC 
001000 134232 10S: BIT #SW9, JSWR 


118: res (SP) 


714 7 oocoo1 OO1L46E 12S: T #T.A2, CHKFLG TEST _MSG Ae? 
14 9 bas iB IF nw! 
7 046064 RCYLD TI IN CYLDIF, DO NOT CHECK 


REREERE 
Youlzaas 
att i 
oe 

Ree 

ney 


92 O47 30 032737 oo00002 OO1466 13S: BIT #] 82, CHKFLG BB ee Be? 
‘ Be 5a8 BRA 295 046136 958 bdSecyia rinks IN CYLADD, DO NOT CHECK 
9282 ou7a4 032737 000004 OO01466 14S: BIT #T.83,CHKFLG test MSG B83? 
g5eq Beaoeg 884394 046174 bia ,RSEC ;PUT INFO IN SECTOR, DO NOT CHECK 
355 044760 004737 046232 JSR PC; RHEAD :PUT INFO IN HEADA, DO NOT CHECK 
ge 4764 013737 001172 001176 15S: MOV STMPS,SESCAPE  ;RESTORE ESCAPE 
aee8 4772 000207 RTS PC ' 
9290 4774 0127 001100 20S: MOV sSTACK,SP : T STACK PTR 
929 Oy 00 15737 001172 001176 MOV ines SESCAPE RESTORE ESCAPE 
3g 2boe 0177 134076 IMP SSLPER 
9294 


; THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY 
IE: IF NED, CTO OR MDS SET, MSG A&B ARE INVALID 


rororOrD 
BNR 


O4SOl2 005737 001462 CKCERR: TST BYPCERR 
$e99 045016 001025 “g B : 
9300 045020 032737 100000 003322 BIT #CERR,HCS1 


T14 


CZR6HEO UNIBUS RKE DR PRT1 MACY11 ae SF 2S-JAN-78 12:08 PAGE 177 7 
eSRene Plt 26<anc7B 12:00 GET VALUE FOR SOFTWARE SWITCH REGISTER a 
$301 S026 001001 BNE 13 ;8R IF CERR 
000207 RTS PC 
7 oo4o00 003322 1S: BIT #cTO,HCS1 
1 BEQ es ;8R IF NOT CTO 
3. ERROR 326 ;CTO ERROR, MSG A&B INVALID 
RTS PC 
7 010000 003324 eS: BIT #NED,HCS2 
1 4 1 , BEQ 3$ Re IF NOT NED 
i : 1 ERROR 327 NED ERROR, MSG A&B INVALID 
$31 S060 737 001000 003324 3S: BIT aMDS ,HCS2 
14 2068 ‘391 BEQ 
1? 3 ERROR 330 ;MDS ERROR, MSG A&B INVALID 
q317 o04s072e 000207 4S: RTS PC 
3318 


THIS Bae OoES The SELEC ECT DRIVE CMD TO GET STATUS 
ITs CONT: R_ READY. 
Te ROY NOT RECEIVED BY A TIMEOUT, AN ERROR IS FLAGGED 


1 00 istar: MOV TEMP1,-(SP) ;SAVE TEMP 
3768 Boi zee 000010 MOV SUNIT;RKCS2(RS) ;CUR DRIVE # 


ss 
am 





000001 003322 MOV #SELORV, HCS1 
114 737 043434 JSR PC, DOCMD jDR SELDRV (STATUS) CMD & GET CONTR RDY 
12g i 4117 ERROR 11? Y NOT ser 8 OF SELECT DRIVE CMD 
1 126 003360 MOV (SP)+, TEMP1 Rest TEMP1 
3330 045126 RTS PC 
33 i 
; 
: THIS R S STATUS OF ALL DRIVE REGISTERS (MSG AD-A3, BO-B3) 
ae PAGS SE Ee 
139 Inthon, MOV TEMP, ;SAVE TT 
g 1 7 4 JSR jGET AL EGONTR REGS 
140 187 oo0000 MOV @CCLR,RKCSI(RS) ;CLEAR 
93 1 1376 i 000010 MOV SUNIT’RKCS2(RS) ;CURRENT DRIVE # 
1S4 2 000026 MOV #3, Rt CR ) ;SELECT WORD 3 
1 7 JSR PC’ GSTATe 
i Ot3t87 “a ERROR ii? . :8 y NOT SET BY END OF SELECT DRV CMD 
3344 1 137 pos3es pasate MOV HMR3,H “Ba ;STORE MSG B3 
MOV SCCLR, Face RSD 
MOV SUNT (RS) 
MOV ae ) ;SELECT WORD 2 
JSR PC’GSTATe 
ERROR 11? ;RDY_NOT SET BY END OF SELECT DRY CMD 
1 i MOV HMR2,H.A2 *STORE MSG A2 
3386 13737 MOV HMR3,H. Be :STORE MSG Be 
1 MOV #CCLR,RKCS1(RS) 
gsc buesee BIa7Ee Adi ese te MOY SUNT TRESS CRED ; 
9356 045264 012765 O00001 O000e6 MOV #1, RKMRI (RS) ;SELECT WORD 1 


o0 


seen 


: 


See 


oe 


rx] 
“J 


wre 


Scr eR RER ER 


aaa 


seta coReeseenaeeaas 


222 
Mro 


0 UNIBUS RK& OR PRT1 MACY11 30A(10S52) 2S-JAN-78 12:08 PAGE 178 SEQ 6178 
Pil 25-JAN-78 12:00 GET VALUE FOR COF THARE SWITCH REGISTER 
S272 004737 045360 ISR PC, GSTAT2 
04117 ERROR > ;RDY_NOT SET BY END OF SELECT DRV CMD 
1 003 003376 MOV HMR2 ,H.AL :STORE MSG Al 
1 posses 0034 MOV HMR3,H.B1 :STORE MSG B1 
14% 012765 ooo000 MOV #CCLR, RKCS1(RS) 
igee 000010 MOV SUNTT RKCS2(RS) 
7 JSR éstat2 
ete a3 3 nae ERROR it? ape 004 NOT S€1 BY END OF SEL DRV CMD 
136 Bos3e0 603355 MOV HRS? HBO :STORE MSG BO 
pusase 12637 003360 MOV (SP)+, TEMP ;RESTORE TEMP! 
press RTS PC 
1 003322 GSTAT2: MOV #SELDRV,HCS1 
1 003322 BIS STMPY,HCS1 ADD CDT IF RKO7 
1 4120 000000 MOV HCS1,RKCSI(RS) GET STATUS 
37 ooLay4 003360 MOV T10, tEMP1 
a8 737 3576 IcR PC, FRDYL ;FIND CONTR ROY & STORE DRIVE REGS ONLY 
414 RTS PC jRET HERE IF NOT RDY 
oY 418 716 oo00002 ADD #2, (SP) ?RET HERE IF OK 
42 7 RTS PC 
?THIS ROUTINE DOES A SUBSYSTEM CLEAR. os WAITS FOR CONTROLLER READY 
IF RDY is NOT upc IvED BY THE END HE TIMEOUT, AN ERROR IS FLAGGED. 
*THE ROU Inet HEN CURREN ENO TUS HM CHECKS FOR CONTROLLER ERROR (CERR) 
?RETURN IF ERR 
‘RETURN +2 IF CERR CLEAR 
424 01276 40 000010 SUBCLR: MOV ssc CLR RKCS2(RS) ;SUBSYS CLEAR 
438 O137 114 003360 MOV 0, TEMP I 
7 JSR pale Y sEIND RDY 
444 Out - ERROR 120 " RKCSeCRS) : y NOT SET BY ENO OF SCLR 
Boobs —_ CLR ae Ltrs + CURE ET woRO YB 
S074 ISR PC GSTA Re? ?GET STATUS 
4 7 100000 003322 BIT #CERR,HCS1 *CHECK FOR CONT ERROR 
ra Obes mH 
4 16 oo0002 1S: aod 82, (SP) ;SKIP OVER ERROR 


READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN "SECTOR* 


5 000026 ADSEC: MoV #3, RKMR1 (RS) ;WORD 3 
7 5074 JSR PC ,S5 TAT 
137 7 001406 MOV HMR3, SECTOR 

17701 1406 


SO4 
ate 
Beaq ? Bic aIGch. SECT) , SECTOR 
se fieee tise i a la 
ees free Bile 2 fi is 
O4SSSe 000207 RTS PC 


¢ 
‘A 


a0 
é 


pe pe 
NOUILW 


PPP eee ees: 
oo 


BIRRZERH BSS Low—ow 


PPPSSLPSSHSP SSH HH SS: 


tite 


wre 


22 
£2 


ReRSEOROORE SS SRA 


: 


g 


é 


O UNIBUS RK& OR PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 179 SEQ 0179 
Pll 25-JAN-78 12:00 GET VALUE FOR SOFTWARE SWITCH REGISTER 
FIND SECTOR 8 IN 22 SECTOR FORMAT. 
:ERROR FLAGGED IF NOT FOUND BY TIMEOUT 
Quss5H 013 3360 Fso22: MoV TEMF1,-(SP) ;SAVE_TEMP1 
137 1424 003360 MOV T5000; TEMP :SETUP TIMEOUT 
5 737 Ouse04 1S: JSR PC ROSEC “READ SECTOR 
1086 1406 rst gecT ;LOOK FOR SECTOR O 
5SO4 JSR PC, RDSEC 
7 001406 TST SECTOR 
i 4 aaa in BEQ wine ;BR IF SAME TWICE 
1 1363 BNE 1§ ;TRY AGAIN IF TIMEOUT NOT UP 
i g 003360 Hoy (SP)+, TEMP jELSE RESTORE TEMP1 
12637 003360 3S: MOV (SP)+, TEMP1 : 
Ouebse 0627 oo00002 AOD a2, (SP) ;SKIP OVER ERROR 
tFIND NEXT SECTOR IN 22 SECTOR FORMAT 
*ERROR FLAGGED IF NOT FOUND BY TIMEOUT 
5 
40 | O1 3369 FNS22: MOV TEMP -(SP) ;SAVE TEMP 1 
33 skied ee — 1s ee pe : Cc . arias TIREQUT oop 
Buseee 37, 1402 001406 . CMP C, SECTOR : 
4 1 BEQ ;BR IF SAME 
47, S504 aaiaal JSR PC,ROSEC On ;ELSE TRY READ DIFFERENT TWICE 
’ 
; F DIFFERENT TWICE 
003360 3S: Beg Fens iB ce TRY ABAIN IF TIME LEFT 
2710 003360 nov (sp)+, TEMP ;RESTORE TEMP 1 
7 12637 003 2s: MOV (SP)+, TEMP1 ;RESTORE TEMP 1 
ubree bes7ig OpaaBe AOD 42, (30) Bete OVER ERROR 
READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN ’CYLDIF’ 
045730 12765 000026 ADCYLD: MOV #2, RKMRL (RS) ;WORD 2 
7 737 045074 JSR PC’GSTA 
74 137. 001362 V HMRe, CYLDIF 
37 0 001362 BIC MaSKI .CYLDIF 
1 R CYLDIF sRIGHT JUSTIFY 
Ot : AS CYLDIE jCYL DIFF /OFFSET 
7 ° 
By ee Be 2 
oue77e Dear 37 012064 cHE CxLD F , MASK ;CHK TO SEE IF RET IN COMPL. FORM 
046006 005037 CLR CYLDIF :CLR IF YES 


GSReHE- PL 2s-JaN-78 12:00 


3469 
e471 
947 

73 
74 
7S 
377 
e473 
9480 
9481 


ae 


Aba aaa 
WON £ Ww 


ue 
a We ER ee 


RR 
Si 


: wempenwna errant ten penets 


046012 


28R35528 


ETE 


000207 


tata 


aes 
pas 


MACY11 308(10S2)_ 2S-JAN-78 le: PAGE 


oo00e6 


001364 
001364 


012064 





001432 
001432 


180 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
18: RTS PC 


READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 


RDCYLA: RKMR1 (RS) sWORD 2 
Ten Be asta ‘ 
MOV HMRs, CYLADD 
BIC maski, CYLADD 
ASR YL sRIGHT JUSTIFY 
CYL ADDR 
INFO 


ece 


ASR YL 

ASR CYLADD ; 
ASR CYLADD 

RTS PC 


; READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN ’CYLDIF’ 


AcyLD: MOV —xH. AB, CYLDIF 
Bic MASK1, CYLDIF 


ASR cYLDIE ;RIGHT JUSTIFY 

ASR &vt F 

ASR CYLDIF 

CMP CYLOIF, MASK ;CHK TO SEE IF RET IN COMPL. FORM 
BNE CYLOIF *ELSE CLEAR 


: READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 
MOV H.Be, CYLADD 


BIC MASK, CYLADD 

ASR CYLADD ;RIGHT JUSTIFY 
ASR CYLADD 

ASR YLA 

ASR CYLADD 

RTS PC 


: READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 


RSEC: HOV HBS, SEC TOR SECTOR AR UNWANTED INFO 
ates oR ‘ ; RIGHT sosrife 
ASR SECTOR 
ASR ECTOR 
ASR ECTOR 
RTS PC 


: READ THE HEAD ADDR IN H.83, RIGHT IT & STORE IT IN ’HEADA’ 
RHEAD: MOV H.B3,HEADA 


A 
BIC ##C<M. HEAD> , HEADA :CLEAR UNWANTED INFO 
HEA A sRIGHT JUSTIFY IT 
SWAB HE 


i FIND LIMIT DETECT ON SEEK IN RKMR3 BEFORE TIMEOUT 


SEQ 0180 


eee eee eee 


CZR6HEO UNIBUS RK& DR PRT1 
CZ2R6HE.P11 


9525S 


be renee 


2S-JAN-78 12:00 


001460 
Bee bette; 
7. 0 

020000 

003360 


012737 177777 
O01e765 000001 


MACY11 


3360 
026 
003352 


Bobaee 


003350 


3360 
0026 


003350 


003360 
000026 


sPt UBCUE FOR SOF THARE S or aa 


;RETURN IF_NOT FOUND: ERROR 
;RETURN+2 IF FOUND: SKIP OVER ERROR 


Asm: CLR LIMERR sLIMIT DETECT ERROR FLAG 
MOV ; SETUP TIMEOUT 
MOV #1 V AKER (RS) ;WORD 1 


1$: JSR . »GSTA 
pit LIMD,HMR3 
NE ;EXIT IF SET 


DEC TEMP1 
BNE 1$ 
INC LIMERR 


R P 
2s: BOB ag, (SP) 
RTS P 


BOUT NE _TO FE He Hone ih RKMRe WORD 1 BEFORE TIMEOUT 
Pa E Ms rine ih CONDS IN TEMP 


RETURNC? IF FOUND - SKIP OVER ERROR 
we M V 
1S: 


;SET LIMIT DETECT FLAG 
;SKIP OVER ERROR 


Bi: Berets ifloRD 5 
BIT HM, HMR2 
MP1 


BNE 1$ 
E TEMPe2 
FHOHM 

T PC 


2s: ADD #2, (SP) 
RTS PC 


ROUTINE for FENO LRe LOAD HEADS IN RKMR2 WORD 1 BEFORE TIMEOUT 
tRETURNES IF IF FOUND: SKIP OVER ERROR 


;SKIP OVER ERROR 


fLoap: Mov : SETUP TIMEOUT 
MOV 81, AKA (RSD :HORD 1 
1S: JSR 5 *GSTA 
ae #0: LOAD, HMR2 
NE MP1 
BNE 1§ 
RTS 


;SKIP OVER ERROR 


PC 
2s: AbD 4, (SP) 


;ROUTINE TO FIND SPOK BEFORE TIMEOUT 
PENT ER W yy APPROX TIME IN TEMPe 


‘BETH N $5 Y TofERRED’ TO SKIP OVER ERROR 


Espox: Mov #-1, TEMP1 ;ALL_1°S 
MOV #1 RAKHI CRS) :WORD 1 


SEQ 


0181 





- CZR6HEO UNIBUS RK& DOR _PRT1 MACY11 30A(10S2)_ @S-JAN-78 12:08 PAGE 182 SEQ 0182 





CZR6HE.P11 § 25-JAN-78 12:00 GET VALUE FOR SOFTWARE SWITCH REGISTER 
| 474 737 gusory 18: JSR * PC,GSTAT 
3 0327 000 003350 BIT #D.SPOK,HMR2 § ;SEE IF SPOK CLEARED 
1 003360 DEC TEMP 
14 v4 BNE 
3 wise BNE —-FSPOK 
9588 000207 RTS PC 
3283 Q¥6be6 06e716 o00002 2s: a 82, (SP) ;SKIP OVER ERROR 
9591 
3238 EIU HEADER TABLE WITH &6 WORDS OF VALID HEADERS 
95 NTER WITH CYL ® IN. *CALADD 
9594 NTER WITH HEAD # IN *HEAD’ 
3239 ENTER WITH FORMAT IN "FORMAT? 
9597 botee: MOV RO,-(SP) ;SAV RO 
32 MOV Ri) -(SP) jSAV Ri 
001470 HOV SHOTAB, RO jHEADER WORD TABLE ADDR 
1430 001434 MOV HEAD, HD1 : 
i Bt 
' 
Of i434 Ast Hod 
001434 ASL HD1 
96 0014 ASL HO1 ;SETUP HEAD # FOR WORD 2 OF HEADER 
960 001436 001440 MOV FORMAT, FMT1 
pO 1440 SWAB FMT1 
360 D014 ASL FMT1 ;SETUP FORMAT FOR WORD 2 OF HEADER 
9611 001366 1$: MOV CALADD,(RO)+  #$;HEADER WORD 1-CYL_ADOR 
3613 1434 Boe Bb “RD, ‘wepetres 1% 
9614 Bo14aG BIS = FMTL, (RO) : -FORMAT 
9615 1464 TST BYPFAT 
3616 BEQ ;BR IF TRUE_FORMAT 
3612 140000 BIS #<BIT14!BITIS>, (RO) ;SET GOOD SECTOR FLAGS 
3619 046730 2S: JSR PC, SECFLG ;GET SECTOR FLAGS 
3621 DC 003360 35: MOV CALADD, TEMP 
ae MOV EMP 
3 01366 003362 IC GAL ADD TEMPE 
00 003362 Bis TENPL ened 
# 
ices MOV TEMP2, (RO)+ ;HEADER WORD 3-HEADER CHECK 
9628 INC Ri ;SECTOR CTR 
000026 CMP Ri, s22. SALL 22 SECTORS DONE? (66 WORDS) 
3630 BNE 1$ ;BR IF NO 
96 6722 012601 MOV (SP)+,R1 ;RESTOR R1 
3635 Bueze4 B1SeDd MOV (SP)+; RO ;RESTOR RO 
9634 046726 000207 RTS PC 
9635 
9636 ; 


é OTe Sane AN-78 Bie: :00 Re 3CET VALUE FOR SOFT iy 2h Sect hn seo cops 


9637 ; THIS ROUTINE GETS NFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS TEST 
96 : & SETS BITS 14 & 15 APPROPRIATELY. 
7. SECFLG: MOV -(SP) ;SAVE R2 

364 7 535 001436 TST Be amaT ’ 
964 7 1016 BNE f ;8R IF 20 SECTOR FORMAT 
aii eras Gisres Bipats HY BESEERHSE--F? cer enqueneoerecreD Fhag 
2 750 10 T00b0D BIS Aetris. (RO) TURN HERE IF GOOD SECTOR 
964 4 MOV 225+8. ,R2 
a6 igre Bos? 95 pasta ISR spsezess BF SER on FLAG 
ae4 764 710 o40000 BIS #BITI4, (RO) ‘RETURN HERE IF GOOD SECTOR 
96 1 MOV (SP)+,R2 sELSE RETURN HERE 
96 aaa pisos RTS S. 4 
geen 
9655 046774 012602 : 1S: MOV (SP)+,R2 ;RESTORE R2 

046776 000207 RTS PC 


tatatul 
ONE 


? 
: ROUTI T ACTUAL SCANNIN AD SECTOR TABLES 
3660 ; E ENTER Wi TH THE, GORE S OF TABLE Seep eS one Beebe. ETC) IN TEMP1 
S662 : RETURN if "9 COMPARE 
2e63 047000 010346 FLGTST: MOV R3,-(SP) ;SAVE R3 
3686 1227 177777 1S: CMP (R2), 8-1 ;SEE IF ALL 1’°S 
1002 BNE 2s :BR IF NO 
701 MOV (SP)+,R3 ?RESTORE R3 
701 u RTS PC 
78 7014 237 001366 2s: CHP (R2)+, CALADD ;SEE IF = CYL #, & ADV PTR TO TRACK/SECTOR WORD 
96 a 708 oo0002 ADD #2, R2 ;GO TO NEXT CYL WORD IN TABLE 
2678 7026 7 BR 1§ 
3676 7030 3 001430 3S: Hoy HEAD, R3 ;GET HEAD # FROM FHDTAB ROUTINE 
3678 1 Bic eo) ;ADD SECTOR # FROM FHOTA ROUTINE 
96 22 CMP aA? R3 j SECTOR/HEAD COMPARE? & INCR TO NEXT CYL WORD 
9680 1401 BEQ ?BR IF YES 
9681 7 jh BR ig *TRY NEXT CYL 
383 012603 4S: MOV (SP)+,R3 ;RESTORE R3 
as 062716 ooo0004 #4, (SP) + INCREMENT RET ADDR 
047054 o0020 RTS 
{THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
3588 WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 
9690 047056 010046 MOV RO, -(SP) ;SAVE RO 
9691 047060 010146 MOV R1;-(SP) :SAVE Ri 
9692 047062 004737 oO4SSO4 ISR PC’ RDSEC 





' 
- 


i SS SS SS ts ss SS 


CZR6HEO UNIBUS RK& DR 


CZR6HE.P11 es- 


NNNN NNN NN 


Boe he be a bre Be ps fine ne Be 
WONTUIL Whe 


WSSSSSSSN8 


9720 047164 
ae 
5Bo0 

047204 


PRT 
AN-78 12:00 


000001 
047164 


1406 
1674 


1674 
100 
002100 


001674 
001406 


Gosa6e 
000100 
177777 


MACY 11 "Met F Fi cant ctl 


001406 


001406 


132100 
132064 


TSR 


es: 


*ROUTINE TO 
éLKON: cLR 


1S: 


#1,SECTOR 
PC, MULT6 


RO, SECTOR 
#RHTAB, SECTOR 
#RHTAB 

senTTa R R1 


(RO) + (R1)+ 
RQ, 0, #RATAB+132. 


#RHTAB, RO 
(RO)+, (R1)+ 
RO, SECT 

ES 

P)+,R1 
P)+,RO 


(S 
(S 
PC 


SECTO! 


R 

TOR, -(SP) 
SECTOR” 
(SP)+, SECTOR 
PC 


TIMUP 
PCLKF 

#100, LKS 
#-1,3PKSB 


SE@ 0184 


;MULT SECTOR BY 6& 


;SAVE INDEX 


; INDEX TO BOT HALF OF RHTAB 
;INDEX TO TOP HALF OF SRTTAB 


;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 


;PUT TOP OF RHTAB TO BOT OF SRTTAB 


;RESTOR R1 
;RESTOR RO 


ENTER WITH DESIRED # IN ’SECTOR’ 


;2@ X SECTOR 


i44 X SECTO 


R 
3(4 X S)4(2 X S) = & X SECTOR 


TURN L OR P CLOCK INTERRUPT ON 


rere IF_P-CLOCK PRESENT 
L-CLOCK, ENABLE INT 


| 

| 

| 

;RO-SECTOR TO RO = INDEX 
pape ALL 1’S 
| 


CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE .P11 2S-JAN-78 12:00 


Bie GER Busser 75 


7. 005037 001376 
9741 Bazeee 005337 00137e 


D1S 


MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 185 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


132054 MOV #135, aPKS ;ENABLE INT cr UP, REP INT 
RTS PC *LINE FREQ & R 


‘KWL1-L & KWL1-P INTERRUPT HANDLER 
éLock: CLR TIMUP 
DEC 


5 COURT 
9742 047256 001010 BNE is 
$743 047260 013737 001370 001372 MOV HZ, COUNT 


SEQ 0185 


(ele) 


RK6& OR _PRT1 


ZREHE 

ZRGHE . P11 2S-JAN-78 12:00 

9744 7 74 
vase para 13 

oie Bree BUS coss7e 


302 737 O03466 
1 132012 
14 

8 SO 131776 
0207 


MACY11 30A(10S2) 25-JAN-78 12: PAGE 186 

GET VALUE FOR SOFTWARE SWITCH REGISTER 
DEC SEC 
sit 1$aup ;SORRY, TIME IS UP: 

1$: RTI 

:ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 

eLKOF: TST PCLKF 
BNE 3 ;BRACH IF P-CLOCK PRESENT 
cLR alKs :L-CLOCK, CLEAR INTERRUPT 

1S: CLR aPKS ;P-CLOCK, CLEAR INTERRUPT 
RTS PC 


SEQ 0186 


CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE . P11 2S-JAN-78 12:00 


605001 000021 
1 


003360 


NNNNN NNNNN 


O RESES SORE 


3782 7 100000 
97 7370 012601 

SoBe 737e Ol 

97 7374 07 

oe 

z 

oe 

730 

S75 7376 777 001000 
Ge Bre TO ooss0s 
9738 aaig ; 001110 
te 74 

g799 7422 011637 001110 
oe APSE RUSE 

9801 

8 

9805 

98) 

se 

3980 

9810 

9811 047430 005037 001176 
981e 047434 005037 001410 


MACY11 a0 oe 
T VALUE FOR SOFT 


-JAN-78 2209 PAGE 


> THIS ROUTINE Te PARITY FOR THE EXPECTED MSGS 
SENTER WITH XPECTED N TEMP 
: TEMP ROTAT 0 Ler 17 TIMES. EACH TIME THE CARRY BIT 1s SET 
:R1 IS THERE . AT THE END OF 17 ROTATES ( TEMP1 BACK TO ORIG), 
sRL IT S EXAMINED. IF I IS SET, INDICATING AN ODD # OF 1’S, 
: PARITY i 1S NOT SE wi B. 
IF TW T SET, INDICATING AN EVEN # OF 1°S ,THE PARITY BIT IS 
SBPAR: MOV RO,-(SP) 3S RO 
MOV Fit =( :SAVE Ri 
MOV #i?., :SHIFT COUNTE 
CLR Ri j COUNT # OF 1’S IN TEMPI 
CLC ;CLEAR C 
1S: ROL TEMP1 
BCC 23 ;BR IF CARRY CLEAR 
INC Rl :COUNT # OF _1°S 
2s: DEC RO :SHIFT COUNTER 
BNE i$ 
BIT #BITO,R1 
;BR_IF sity" N RO 
003360 BI 8M. PAR, TEMP ?SET PARI Y alt 
3S: MOV (SP)+,R1 j RESTORE 
MOV (SP)+;RO RESTORE RA 
RTS PC 
; ROUT TNE Stree Ser B LOOPING ON INTERMITTANT ERRORS 
? WHE SET BY OTHER THAN SCOPE ROUTINE 
; TES We 
131534 §coP1s: BIT Py aswR ON ERROR? 
Bt ; BR OTEON 
TSTB RFLG EAD ERROR? 
BEQ ‘BR IF NO 
MOV LPERR, (SP) 
RT 
1S: Mov (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 


i CHECK FOR SW14 (LOOP ON TEST) OR SW8 (LOOP ON SPECIFIC TEST) 


;RETURN IF NEITHER SET 
; RETURN +2 IF EITHER SET 


THIS OUTINE IS HSER AT THE END OF ANY TEST THAT REQUIRES 
+ RECO THRONING DRIVE BEFORE LOOPING ON AN ERROR OR TEST 
dwtst: CLR SESCAPE 

CLR LPFLG 


SEQ 0187 


consign. — RK6& DR _PRT1 
CZR6HE . P 2S-JAN-78 12:00 


= 


esses 3 
ee eee 
DONT UILW 


seas iets sae or san Rae RSS 
22 
ee 





Ret 


poco ica UU 
22 
ee 


ne 
ec 


1041 


012765 
004737 


040000 
oo000e 


MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 188 SEQ O188 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
131472 T #SW14, ISWR ;LOOP_ON TEST? 
Q :BR IF NO 
1$: ADD #2, (SP) 
2s: RTS PC 
1314S4 3S: BIT #SW8, ISWR ;LOOP_ON SPECIFIC TEST? 
001102 Ree s3 STSTNM BR OA if ne T? SWR <7:0> 
BEQ rt : ‘Bat IF yee 
RTS 
tas ae te TLESUTRE See BY TYPING A CONTROL-C. 
s U RATOR TO HALT THE CPU WHILE INSURING 
ORMATTING IS VALID BEFORE ACTUALLY HALTING 
, 
ely CMP (SP)+, (SP)+ ;RESTORE STACK FROM INTERRUPT 
PC, SUBCLR 
ZRROR 24’ ;CERR AFTER 
TST UNLD ;SEE_IF niEADS UNLOADED 
? 33 ‘BRT IF NGANUAL OR AUTO MODE 
Q 1§ :BR IF MANUAL MODE 
TYPE 4lisa74 :PGM ABORT PENDING 
18: YPE ,»MSG75 ;HALT PENDING 
JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
003322 MOV #SRTSPL,HCS1 
ISR PC DOcMD (0 START SPINDLE CMD & GET CONTR RDY 
ERROR 1el Y NOT FOUND AFTER ST SPIN CMD. 
003362 MOV TSOO, TEMP2 one TIMEOUT 
JSR PC, FATT1 :FIND ATTN 
ERROR 67 ?NO ATTN AFTER ST SPIN CMD. 
CLR UNLD 
3S: TST BADHDR ;SEE_IF HEADERS VALID 
BEQ 4§ ?BR IF YES 
INC HPEND 
ooo000 MOV #CCLR, al 
990010 MOV SUNIT;> RKCS2(RS) 
3322 MOV #RECAL,HCS1 
ISR PC, Doct O RECAL CMD & GET CONTR RDY 
ERROR 1 DY NOT SET AFTER RECAL CM 
000026 MOV #1,RKMR1(RS) enact WORD 1 


JSR PC} GSTAT 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE .P11 2S-JAN-78 12:00 


tee 
oe 


Gureed 
fe Bureee 


BERLE Ueee sea SE RES 


B9:0-B.0:0:8-B:0:0.8 
Rah etait at tat 


a 
e 


B3t68{ 


011600 
ee. 

77 
100S 
104401 


020000 


001414 
044044 


031342 
oooo4e 
Bue76b 
001176 
042722 
056727 
007730 


003306 
003310 


ooo004 


020000 
057105 
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003350 


003362 


oooc00 
000010 
003322 


131100 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


#RgRTZ, HMRE 
ERROR 4y -RTZ NOT SET ING RECAL CMD 
64S: MOV Fid TEMP2 soe TU UP TI but 
JSR PC,FATTI *F IND 
ERROR SS ;NO Orin AFTER RECAL CMD 
MOV accLR, RKCS1(RS) 
MOV SUNIT: RK cSe( RS) ;ORIVES 
ney BE ocho - RIV & GET CONTR RDY 
2RROR iS] 88 PRY "EE SLEAR Baive & CLEAR CMD 
JSR PC, TSTATN : TEST FOR ATTN 
ioe ERROR Pea ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
IMP FORM ;WRITE VALID FORMATS 
4S: TST 42 ty IF MANUAL OR AUTO MODE 
BEQ 5$ Pon "hap man MODE 
TYPE MSG7’ 
CLR $eoPc Oro EXIT TO MONITOR 
CLR SESCAPE 
IMP SEOP1 ahd PROGRAM 
Ss: TYPE ,MSG77 ;CPU HALTED 
tne STs ;START OVER IF CONTINUE PRESSED 
CHECK IF HALT PENDING 
:RET IF YES 
?RET+4 IF NO 
HPEN: CLR BADHOR ;CLR VALID HALT FLAG 
rst HEEND ; SEE IF yHeeT PENDING 
A #4, (SP) HEL SE BUMP RET ADDR 
1S: RTS PC 


-SBTTL UNEXPECTED TIMEOUT HANDLER 


THIS ROUT Ine ont ENTERED IF THERE IS 
A. ee (NO SSYN) 


: B. BOUNDRY 

: C: STACK OVERFLOW 

e 

BADTMO: MOV (SP), RO AVE PC WHERE TIMEOUT OCCURRED. 
TST -(RO fe PC ait of hail 
BIT #SWi3, SWR NHIBIT RRO YPOUT? 
TYPE ,EM3 ABORT. CesT. TONEXP T.0. a PC= 


SEQ 0189 


censted _ RK6& DR_PRT1 


CZREHE .P 25-JAN-78 12:00 
9925 OS004%. 010046 
104403 
006 
4 932777 001000 131056 
1 1403 
S 022626 
3333 177 131014 
3336 950105 reat eel nae: 
1 
$433 0S0104 00000 
9a40 
9941 
9qu 
9q45 
Sau OS0106 22626 
a34e Beolie Bars? o4e722 
9q4 
aa 
050114 012737 050130 001176 
gge1 bebies bties? BOLaa4 
$35¢ 050126 104236 
9954 050130 005037 001176 
9955 134 032777 001000 130776 
142 001001 
144 00002 
9959 050146 012706 001100 
3360 Beoies Baaise faotoS 
9964 OSO01S6 011600 
a 
? 050166 01004 
aac 050170 104403 
$470 beni oe 006 
$371 950173 000 
997 174 oo0002 
997 
9974 
3375 
$377 050176 012737 050210 op0024 
9978 050204 O00000 . 
9980 050206 000776 
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UNEXPECTED TIMEOUT HANDLER 


1$: 


es: 


38: 


- SBTTL 
MEMERR: 


18: 


es: 


. SBTTL 
INTER: 


. SBTTL 
; POWER 
SPWRON: 


MOV RO, -(SP) 5s SOVE RO FOR TYPEOUT 


TYPOS tg EP 57 oCTAk ASCII 

BYTE 6 i; TYPE 6 DIGIT(S) 

“BYTE O : LEADING ZEROS 

BIT #SW9, JSWR i COOP ON RROR? 

SNP soPpaoR” YES, RESTORE, STACK TEST 
of VE TI Meour 

BIT #SW14, ISWR LOE ON. ON TEST? 

BEG 3s ?NO_ BRANCH 

TI sYES 

HALT ;UNEXPECTED TIME OUT OCCURRED 
?AS INDICATED. YOU CAN LOO 
?ERROR, LOOP ON TEST OR INHIBIT 
*ERROR TYPEOUT BY SETTING THOSE 
: SWITCHES. 

CMP (SP)+, (SP)+ ?REST STACK 

IMP SEOP iREORT TESTS 

MEMORY CHECK ENABLE TRAP 

MOV #1$, SESCAPE ;LOAD ESCAPE 

MOV SPs, TRAPPC :STORE PC 

ERROR :UNEXP MEM PARITY TRAP 


CLR SESCAPE 


BIT #59, JSHR ; CHECK IF Loop 
BNE 2 : YES, FORCE oF ae ERC PRY AGAIN 
RTI *ELSE 

MOV #STACK, SP sINIT STACK 

IMP JSLPERR :LOOP ON ERROR 

RKO& INTERRUPT HANDLER 

MOV (SP),RO ;SAVE PC_WHERE INT OCCURRED. 

TST -(RO}S :GET PC BEFORE UPDATE. 

TYPE MSG6 :INT A 

MOV RO, -(SP) $398 ‘ FOR TYPEOUT 

TYPOS $:GO TYPE--OCTAL ASCII 

BYTE 6 :: TYPE & DIGIT(S) 

aeyTe 0 ?:SUPPRESS LEADING ZEROS 

POWER DOWN AND UP ROUTINES 
DOWN ROUTINE 

MOV #SPWRUP,PWRVEC ;SET UP VECTOR 

-“2 ;HANG UP. 


CZR6HEO UNIBUS 
CZR6HE.P11 


9981 


SRIURREE 
oo 


3 


BBD 
8 
5 
e 


RK6& DR_PR 
2S-JAN-78 12:00 


000000 


Tl 


00 
055761 
012170 


MACY11 30A(10S2) 
POWER DOWN AND UP ROUT 


2S-JAN-78 19:08 


NES 


;POWER UP ROUTINE 


SPWRUP: CLR 
1$: INC 


SPWRCT: O 


SPWRCT 
SPWRCT 


1 

#SPWRON, PWRVEC 
#PR7, PURVEC+2 
#PR7 | TRAPVEC+2 
aSTACK, SP 
»MSG11 


PFSRT 


° 
oO 


LOOP_FOR TTY 
FOR THE INCR 


RD 

aaa VECTOR 

ALL _INTERRUPTS FOR TRAPS 
TACK 


;WAIT COUNT FOR TTY 


SEQ 0191 


CZR6HEO UNIBUS RK& DR PRT1 
25-JAN-78 12:00 


CZR6HE.P11 


SBBS8s8sssesessseceess 
ennai | 


ee 
WON U£W-O: 


SS 


a 


BeRREBREBEE SS 


5 
2 


2 


tetetntatototetsiteistatats nisin ststsis nisin ctoiats oS So IE 
Gru 


Raneeeas 





040000 


MACY11 ae OS ts 


130644 


000004 


130576 
001102 


001103 
130540 
001106 


130506 


001104 


001104 
001174 


001214 


COPE HANDLER ROUTINE 
-SBTTL SCOPE HANDLER ROUTINE 
5 036 06 96 AE 9 AE a A a a a a a eH a HE HE 


POE ge maT, 


tETHE Suit SPT TONS PROVIE 


2S-JAN-78 12:08 PAGE 192 


pazonacnsegessenroenegeneeseoeteenee, 
Sin ESTS. IT WILL INCREMENT 
NM) INTO” He ISPLAY REG. (DISPLAY<7:0>) 
G) INTO DISPLAY< 15: 08> 
BY Tals ROUTINE ARE: 


:*¥SW14= ooP 
:¥SW1i=1 NHIBIT I TIONS 
: xSWO9 LOOP ON 
: xSWOS=1 LOOP ON TEST IN SWR<7:0> 
> #CALL 
3 SCOPE ;; SCOPE=IOT 
SSCOPE: 
CK ;;TEST FOR CHANGE_IN SOFT-SWR 
1S: BIT #B1T14, ISWR LOOP ON PRESENT TEST? 
AeveegSTER? OF CHEE FOR THE KOR TeeTER SEES on Te “XOR" TESTER CHANGE 
; pitts Tne TRUCT ION TO A “NOP” (NOP=240) 
Mov see SERVE igererg rfreaur OF THE ERROR VECTOR 
TST aal? HH 
HOV 13?) 4 SWERVE REST THE E a VECTOR 
S$: CHP (SP) +, (SP) + 33CL one Tack 6 TER A TIME OUT 
6S weeesEND OF ee vn THE von’ #oeeno tH THE PRESE SENT Test 
vs BIT #81 TOS, JSWR s3L cON "SPEC. TEST? 
che SSHR,STSTNM 5 30M THE, RIGHT TEST? SWR<7:0> 
2s: TSTe SERFLG ; HAS BN ERROR OCCURRED? 
chs RMAX, SERFLG MAX. ERRORS FOR THIS TEST OCCURRED? 
Bit 881709, 2SUR 50 FON ERROR? 
73: nov RR, SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
4S: R SERF ;;ZERO THE ERROR F 
° con Sr ME j CLEAR, THE Coe LTERATIONS TO MAKE 
3S: BIT #B1T11,aSWR :INMIBTT ITERATIONS 
Tt ‘- iF FIRS T IT RATIONS 
INC SICNT tL INCREMENT Hier Tit FN 
CHP TIMES, SICNT 5 CHE K R OF Tea MADE 
: v ¥ NT >? REIN nc Fat! ERATION COUNTER 
NOY SHKeNT STIMES biGet RURBER ITERATIONS To DO 
SSVLAD: INCB TSTNM >:COUNT TEST 
MOVB STSTNM,STESTN ;;SET TEST NUMBER a APT MAILBOX 


SEQ 9192 


eee ee 


CZR6HEO UNIBUS RKE DR_PR 


CZR6HE.P11 2S-JAN-78 H :00 


: 


oSOSO4 011637 
Beb8i4 Gos037 
Qsosee 013777 
Bebesa Bddad8 


osos4e 003720 


a peuti 


eRe 


osos44 


HSRRERIS SSSI SSeSCE ET 








as 
: 


4 
050716 seat 


beures | Bi sri6 


ee ee ee a ee ee Bh be ee ee ee Bee fe eb oh 


BOPRESRES 
Mo 


O00000000 


130244 


001000 


001110 
001176 


001176 
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130230 


SCOPE HANDLER ROUTINE 


rey (Sh Be 
CLR sés¢ Pe 


MOVB 
SOVER: MOV St8Tan gO DISPLAY 
SLPADR, (SP) 


SAVE SCOPE LOOP ADDRESS 


; SAVE ERROR LOOP. ADDRESS 
5; CLER THE ESCAPE FROM ERROR ADDRESS 

?:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
:DISPLAY TEST NUMBER 

iE TURN ADDRESS 

;MAX. NUMBER OF ITERATIONS 


SMXCNT: 2000. 
-SBTTL ERROR HANDLER ROUTINE 


TE ARRENENT THE ERROR FLAG AND THE ERROR COUNT. 


sane ive ERROR ITER RURGER ANDTHE ADORESS OF THE ERROR CALL 


; AND 0 TYPERR ON 
: ¥THE gorTeH OPTI PROVTD BY THIS ROUTINE ARE: 
3 *SW1 =] oY 3 
:“SW13=1 INHIBIT ERROR TYPEOUTS 
;*#SW10=1 BELL ON ERROR 
; #SWOS=1 LOOP ON ERROR 
+H ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
KSWR si TEST FOR CHANGE IN SOFT-SWR 
7S: INCB SERFLG ?:SET THE ERROR FLAG 
BEQ ::DON’T LET THE FLAG GO TO ZERO 
MOV STSTNM, DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT agIT10, * JSWR ;;BELL ON ERROR? 
fig oe Bs i 
1S: INC TL. ars NUMBER OF ERRORS 
nov (SP), SERRPC GET SS OF ERROR INSTRUCTION 
MOVB SERRPE rene ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT 13, dSWR He IP TYPEOUT IF SET 
BNE ::SKIP T TS 
ISR C. TYPERR ?:G0 TO USER ERROR ROUTINE 
rm TYPE , SCRLF 
: CMPB SOPTENV, SENV ;;RUNNING IN peri 
AOvE ITEMB, 21S OO EEA NL RROR_ NUMBER 
JSR Ss gn eyg ttRe T Bol a se oe 
21S: . BYTE 
_BYTE , 
225: B 225 ; ;APT_ERROR LOOP 
2s: TST aSWR ?:HALT ON ERR 
ty 3$ Te On SONT NUE 
CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
3S: BIT #81T09, ISUR i war ERROR SWITCH SET? 
FRG SLPERR, (SP) Ain RET TURN FOR LOOPING 
4S: Tet SESCAPE i CHECK FOR AN ESCAPE ADDRESS 
MOV SESCAPE, (SP) +:FUDGE RETURN ADDRESS FOR ESCAPE 


SEG 0193 


mm a Ne 
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CZR6HE .P11 25-JAN-78 12:00 ERROR HANDLER RMITINE 


18198 828338 o2e737 ov3010 oooove ** CMP #SENDAD, 2842 jsACT~11 AUTO-ACCEPT? 
19111 050736 001001 BNE 6S :;BRANCH IF NO 
i 18 p09 000000 a HALT +: YE 
i tt ay ooo0002 é RTI ; ;RETURN 
10115 .SBTTL TYPE ROUTINE 
101 12 iRoUTINE T0-TYPE ASCIz MESSAGE. RESSAGE MUST TERMINATE UITH AO BYTE. 
101 iT ROUTINE WILL INSERT A NUHBER” ER RA E 
i MME A Se CE A Ra 
i ; jsNOTES! SFitte EONTAING THE & HORACTER TO BERS AFTER. 
10 ie *CALL: 
10 :#1) USING A TRAP INSTRUCTION 
te iM on TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
Ff re YPE 
5% MESAOR 
8 ; 


5305 THERE A TERMINAL? 

IF YES 

5 SNe ene IF NO TERMINAL 

: Rave RO 

GET wna SS ASCIZ STRING 
K FOR CONSOLE 


Ti REEL GEN Eon or 


10S7 001157 STYPE: TSTB _TPFLG 
1paBe i 


: 


z 
x 


ooo002 MO ) 
mtd 000001 001230 CMPB SAPTENY, SENV 
i 


fr 
000100 001231 ITB #APTSPOOL , SENVM 


051014 Vv ,61$ 


Bioga? 
59050 051460 JSR PC, »SATYS 
1 


61S: < 
oooo4O 001231 625: BITB #APTCSUP , SENVM 


1ieoue 2S: Rive O88 +, -(SP) 
1 _ BNE 4§ 
nee re eee ote 

16 oo0002 s¢3: ADD (SP) 


arate 
rsco 


hiss ie 
CONSOL T SSED 


ig MA be 4 ONTO STACK 
IF IT TST THE TERMINATOR 
‘s TERMINATOR POP IT OFF THE STACK 


UST RETURN PC 


OS SSF REGEESIB IER PONS INR PENNS 
ps 
o 
3 
RBo 
Be 
t 
3~ 


0 bb bb he 
Oe OS we Se Ws SESS SS SES! WHOS OE SE ws we wees es wows 


eb 


TOWRA OMAN NOMA URW UM OWA 


RT 
2g Bug 1 000011 4S: Ride #HT, (SP) ANCH IF <HT> 
GoM oso 1430 BEQ 
Ss 2716 oo00200 CMPB #CRLF , (SP) ;; BRANCH IF NOT <CRLF> 
g ? ey (SP)+ i 00P <CR> <LF> eguiv 
1 1 TYPE A CR AND L 
piea Bee OL 7 OSl22e SCR HARCNT AR CHAR 
5 et 858 E F a CASRReTERN 
0 074 737 OS11S56 S$: JSR PC, STYPEC i 360 Tee THIS CHARACTER 
0163 if aE 001156 6$: CMPB gFtLLe, (SP)+ 31S IT TIME FOR FILLER CHARS. ? 
0164 1 1350 BNE 44 NO GO GET NEXT CHAR. 





ceneigo UNIBUS RK& DR _PRT1 MACY11 30A(10S2)_ 25-JAN-78 12:08 PAGE 195 SEQ 0195S 
CZR6HE . P 2S-JAN-78 12:00 TYPE ROUTINE 


10165 051106 013746 001154 MOV SNULL , - (SP) i 1G ¥ OF FILLER Ct CHARS. NEEDED 
10167 05111 os 000001 7$: DECB 1(SP) j }DOES A NULL NEED TO BE TYPED? 

ipies Bett 39 osiise FER PC. STYPEC 18D fale are Te MARL OFF OF STACK 
10170 Osi1e4 105337 051222 DECE SCHARCNT j D9 NOT COUNT AS A COUNT 

19123 2 

iSt74 ;HORIZONTAL TAB PROCESSOR 

10175 OS11 112716 oo0040 8S: MOVB ;;REPLACE TAB WITH SPACE 

10176 ll 004737 051156 95: JSR Bo, gt ipec ;;TYPE A SPAC 

101 05114 132737 000007 oS1222 BITB #7, SCHARCNT +:BRANCH iF NOT AT 

10178 11 1372 BNE ::TAB ST 

101 il 00s TST (SP)+ >;POP SPACE OFF STACK 

10180 1154 0007; BR 2g >3GET NEXT C 

iBies 1158 108 127766 STYPEC: TsTe STPS . ::WAIT UNTIL PRINTER IS READY 

101 1164 1 oeEo? 000002 127760 MOVB $2(SP).aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
10184 : 1ge766 000015 oo0002 CMPB #cR,2tsP) iid CHARACTER A CARRIAGE RETURN? 
10186 : 05037 oS1222 cLRB CHARCNT j i YES=“CLEAR CHARACTER COUNT 

i8t 1210 1 000012 oo0o02 1S: CMPB #LF,2(SP) 33IS CHARACTER A LINE FEED? 

101 1216 001402 BEQ STYPEX ::BRANCH IF YES 

101 le 05227 INCB (PC) > ;COUNT THe CHARACTER 

10131 ie 00960 SCHARCNT:.WORD O 3;CHARACTER COUNT STORAGE 

1013 1224 00020 STYPEX: RTS PC 

10194 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

iota iUTHIS ROUTINE Te USED TO CHANGE A IG BIT BINARY NUMBER 10 Ae DIG T 
10198  ¥SIGNED ECINAL | (ASCII) NUMBER AND 1 qDEPENDING ON NCWHETHER +h HE 
10199 : *NUMBER if ITIVE NEGATIVE A SPACE OR A MINUS SIGN WILL BE” TYPED 
19200 s BBECO cite FERS D GIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
10202 > CALL: 

10203 $i MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
1de08 He TYPOS ::GO TO THE ROUTINE 

10206 051226 STYPDS: 

{esse elses plate Roy B71) BURN AD YE 

1 1 yet MOV RB? = (ep) +t BUeH aA SN aT Ack 

ieelt Bele Blows Roy Res=tge) buen Re Sy Steck 

iSete be! O1 200 MOV B20200 (SP) HISET BLANK sir Tch AND SIGN 

1021 1 1 0020 MOV 20(SP)'RS iGeT THE 2 NUMBER 

10214 O51 BPL iG BR IF fe SINR POS. 

10215 1 0340s NEG RS : MAK Y NUMBER POS. 

10216 051254 766 OO00SS 000001 MOVB #’-,1(SP) ; MAKE THE SclI 

10217 05126e 00 1S: CLR RO }3ZERO_ THE CONSTANTS TNDEX 

10218 1264 012703 os1442 MOV #SDBLK,R3 :SETUP THE OUTPUT POINTER 

10219 OSie70 iie723 OOO04O MOVB #’) , (RD+ eteeT THE FIRST CHARACTER TO A BLANK 
10220 051274 o0S002 2S: CLR Re ?:CLEAR THE BCD NUMBER 


CZR6HEO UNIBUS RK& OR PRT1 











CZR6HE.P1i1 25-JAN-78 12:00 
1022 1 051432 
| 1022 1 
- 2 1 
 s 1 
o 1 
| 4 1 
‘a! 1 
i 402 1 
1 1 
1 1 
1023 1 
1 1 
| 1 1 000001 
> - 1 co0060 
t i 000040 
102 1 
1 1 000010 
1 1 
i i os0e2 
iSede 1364 y 
1 1 1057; 
1BSue et 1ie6e3 177777 
1 14 13 
1024 1 1 
1 1 1 
1 51 1 
1 141 1 1 
i tag o5401 gs 1442 
1 1e0 ot 002 
1 y 14, 12616 
1 14 
1 14. 34 
19658 1 Htc 
1025 ater le 
10260 O514%e oooo04 
10261 
10262 
10263 
10264 OS14S2 112737 ooooo1 
10265 051460 phe? a5 000001 
a4, att Tte7aF 000001 
Hee HEISE a, 
10553 Betens BiS¥e 
1027 1 0S737 051714 
1027 1 5430 
1027: 151 273 ooo001 
10274 0OS151 1031 
10275 051 132737 000100 
10276 O51Se6 o014es 


MACY11 30A(10S2) 


177777 


177776 


000004 


051716 
051714 


051716 


001230 
001231 


B16 
cHRAL AND as aa 


Ue SouarnT 
Mi BCD DIGIT 


EASE HE BCD DIGIT BY 1 


+. 


;ADD BACK THE CONSTAN 
HECK IF BCO Sicrt=0 


+ 

45 

> 

*:STILL DOING LEADING 0’S? 

;;BR_IF YES 

1 ROT NO 

3: YES--SET THE SIGN 

*:MAKE THE BC OiGir ASCII 

33 IT A Ir NOT ALREADY A DIGIT 
?:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
OUP CE TABLE INDEX 

>; G0 60 1 NEST Dict 

ge, T9 "50 

a3 

;;G0 CHANGE 0 ASCII 

j7WRS THE LSD THE FIRST NON-ZERO? 
i} YES-=SE THE SIGN FOR TYPING 
::SET THE TERMINATOR 

3:POP STACK INTO RS 

::POP STACK INTO R3 

::POP STACK INTO Re 

::POP STACK INTO RI 

:? POP STACK INTO RO 

3 ;NOW THE R 

;;ADJUST THE STACK 


;;RETURN TO USER 


Fist iehaiat-}-ty}-talelaled-tdel-+-5-t)-telelalelelelaieiniel-+-tal-+-3-+-+-+-iol-5-+-5-tlal-+-+-+-+-talelalaielaielaieial 
MOVB ORT FATAL ERROR 


ti 19 TYPE A MESSAGE 
;;70 ONLY REPORT FATAL ERROR 


25-JAN-78 
CONVERT BINARY TO DE 
MOV SDTBL(RO),R1 
3S: SUB R1,RS 
BLT ug 
INC R2 
BR 3$ 
4S: ADD R1,RS 
TST ne 
BNE $s, 
TSTB (SP) 
BMI 75 
SS: ASLB (SP) 
BCC 6 
MOVB 1(SP) ,-1(R3) 
6$: BIS #’0,Re 
7$: BIS #’ >Re 
MOVB Re, (R3)+ 
TST (RO)+ 
CMP RO, #10 
BLT 2s 
BGT ag 
MOV RS,Re 
BR ae 
8S: TSTB (SP)+ 
BPL 95 
MOVB TALSP? .-2¢RB) 
9S: CLRB (R3) 
MOV (SP)+,RS 
MOV (SP)+,R3 
MOV (SP)+,Re 
MOV (SP}+)RI 
MOV (SP + RO 
T BLK 
MOV e(s },4¢SP) 
MOV (SP)+) (SP) 
RTI 
S$DTBL: 10000. 
1000 
100. 
SDBLK: 1OLKW 
-SBTTL APT COMMUNICATIONS ROUTINE 
$ATy1: Vv # G 
SATY3: MOVB #1’SMFLG 
BR gate 
SATY4Y: MOVB #1,SFFLG 
SATYC: 
MOV RO,-<SP) 
MOV Ri’-(5P) 
TSTB SMFLG 
BEQ g 
cHPS SAPTENV, SENV 
BITB #APTSPOOL , SENVM 
BEQ 3S 


i PUSH Ri Rion SrAc A MESSAGE? 
aS i NOT: BR 

; | OPERATING UNDER APT? 
3;I1F NOT: BR 

‘SHOULD SPOOL MESSAGES? 
TTF NOT: BR 


- 


SEG 0196 





CZR6HEO UNIBUS RK& OR PRT1 MACY1L1 3081052) 25-JAN-78 12:08 PAGE 197 SEQ 0197 
CZR6HE.P11 2S5-JAN-78 12:00 T COMMUNICATIONS ROUTINE 
| 10277 051530 017600 000004 wi MOV a4(SP) RO ;;GET MESSAGE ADOR. 
1878 Maar 7. eaves _ 1S: pO? ee ;;SEE IF ‘GRE Ww Re ryey SAT SSION? 
| 3 i Broas? 01224 5 = sR SMSGAD siTF wt MAILBOX 
iis Ble ; 2s: reve eo} HH PY NO PRG i "NATLROX 
i 1 6 1 001224 ote SHSGAD, RO 5; SUB START OF MESSAGE E 
1386 { 001226 4 BN RG, SMSGLGT Bit Hay Are BATLBOX — 
ig B7 : 12737 000004 001210 HOV #4, SMSGTYPE :;TELL APT TO TAKE MSG. 
10289 O51 051626 3S: Movs BAC SP, 4S ;;PUT MSG ADDR IN_JSR LINKAGE 
its 31 i i 77776 oe ROY 77776, -(SP) STACK a 
1053s 1 7 744 JSR ji »STYPE ats yet Vez 76 RO 
tee i NT ea 
1 1 051716 10S: TSTB SFFLG 33 REPORT FATAL ERROR? 
1 1 bSr4 ie Q 125 : FOND T: 
10237 051636 z 001230 TST SENV 33 ING UNDER APT? 
1363s | i ag 001210 11S: ist shscTvPE Has ianéo Ca ip hat MESSAGE? 
10301 16 1 000004 001212 MOV D4(SP),SFATAL ::GE 
i | OTe) Wheepges RE H3 acs) TE 0 TAKE ERROR , 
18303 bsieve 108637 bei 12S: ah B steer atte cc KE 
i peivas i peisie ce OSHELG PECLERR Hes 
18307 351706 £03037 MOV (SP)+,R1 Shere ‘tie INTO E FLAG 
1 S171 15e00 MOV (SP)+;RO : BOF TACK INTO RO 
19309 051712 7 RTS PC 
1031 051714 000 SMFLG: .BYTE 0 ::MESSG. FLAG 
10311 051715 000 SLFLG: : 0 33 LAG 
1031¢ 051716 g00 SFFLG: -:BYTE 0 *:FATAL FLAG 
ba B5dze8 eprsrzestt 
10315 000i APTENV 
10316 000100 APTSPOOL= 190 
10317 000040 ABTCSUP= 
15318 on INARY TO OCTAL (ASCII) AND TYPE 
1 REGGE GGG RRR RARER RARER ERE RRR RAR A MAA RLHRAE KEES 
10321 PkTHIS OUT INE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
10322 ; ¥OCTAL _ ( CIT) NUMBER AND TYPE IT 
10383 ; iigtypos-~-EN ER TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
10325 a NUM, - (SP) ;;NUMBER TO TYPED 
10326 1 i TYPOS CALL FOR TYPEOUT 
10327 $ .BYTE N ?:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
10388 :% "BYTE ™ ::M=1 O 
1 2 i ;31=TYPE LEADING ZEROS 
10330 i ::O=SUPPRESS LEADING ZEROS 
10332 :¥$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


porte = 





D16 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 198 


CZR6HE .P11 2S-JAN-78 12:00 


1334 


10335 


sieeteaes 


170 017646 000000 

i733 1l pogede 052143 

17 1 0Se1 

1738 & 000002 

ee 118737 BOOB06 beste 

| 
ae 113704 0S214S 


bane be be bb bb 0 ee 


ea SARONARR SGicgiscad cui are 





052144 
177770 





830388 
peg 


nce 


et 0 0 he 


F 
052110 
feels 
feiss 
388 OSele4 012603 
Aer Basis Bi see oooode 900004 


BINARY TO OCTAL (ASCII) AND TYPE 
tt DN et OR STYPOC 


7 MOV NUM,-(SP)...... ;;NUMBER TO BE TYPED 
i TYPON tECALL FOR TYPEOUT 
j #STYPOC-~-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
+ * MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
$a TYPOC ::;CALL FOR TYPEOUT 
= te OE ee Scere LILORO CERO FILE SWITCH 
MO (SP)+°SOMODE+1 3;NUMBER OF DIGITS TO TYPE 
ADD 8 (SP) ?;ADSUST RETURN Ss 
TYPOC: al, LL +:SET THE ZERO FILL SWITCH 
. nove $5’ SOMODE+1 :;SET FOR SIX(6) DIGITS 
STYPON: MOVE 88, SOCNT 2: SET THE ITERATION COUNT 
Roy fs-t8e) RENE 
MOVB SOMODE +1 , RH 3:GET THE NUMBER OF DIGITS TO TYPE 
HO RG’ SOMODE TROT OR Use ner ALLOWED 
MOVB r L,RY 4H FILL SWITCH 
HOV 1% BS Re HPT Oe whe T NUMBER 
1S: ROL FS ii ROTATE i “for 
2s: ROL RS ::FORM THIS DIGIT 
ROL RS 
Rov ORE, RB 
3S: ROL R3° ;;GET LSB OF THIS DIGIT 
CB ODE ;; TYPE THIS DIGIT? 
its 8177770 R3 i $GET RID OF JUNK 
Tet a ae es _THIS 0? 
4S: Don?t Big ANY RE o’s 
Bis #’0,R + MAKE TH $5 T AS 
SS: BIS a ak : MAK I en Si READY 
TYP! Baran 8 DIGIT 
7$: Yee A: 33 T BY 1 
BCTe a ;3BR IF MORE TO DO 
NC RS INSURE CONE T DIGIT ISN’T A BLANK 
BR es. 5 3G0 LAST DIGIT 
6S: MOV (SP)+,RS HH 
MOV CSPDa° RS TRE CTORE RG 
MOV 2(SP);4(SP) ;;SET THE STACK FOR RETURNING 
MOV (SP)+' (SP) 


SEQ 0198 


[aor 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 199 SEQ 0199 
CZR6HE.P11 2S-JAN-78 12:00 BINARY TO OCTAL (ASCII) AND TYPE 

1 TI ; sRETURN 

138 sae i 8s: YTE O :: STORAGE FOR i DIGIT 

141 000 YT 0 3}; TERMINATOR F YPE ROUTINE 

ive 000 SOCNT: .BYT 0 >:OCTAL DIGIT COUNTER 

14 o008e8 SOFILL: .BYT 0 33ZERO FIL SWITCH 

144 : ; ; NUMBER DIGITS TO TYPE 


OM 2 
-SBTTL TTY INPUT ROUTINE 
$5. SE HEME SEE SE 6 96 0 2 0 9 0 9 0 a a a aH 


ererrperey 


1 
1 
1 
1 
1 
1 
1 
1 
i 2 
1 052146 oo00000 $TKCNT: .WORD 0 ; ;NUMBER_ OF ITEMS IN QUEUE 
19400 02150 999000 TKGIN: “WORD. 0 ? INPUT POINT 
10401 1 0000 TKQOUT: . 0 tf OUTPUT POINTER 
104Ge 052154 900001 STKGSRT: BLKB 1 ::TTY KEYBOARD QUEUE 
=. 
10404 052156 “ 
1Bue atk N ROUTINE 
etitg Kre Routt bAE wice INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
10408 SETUP THE ME TERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
10410 =—e 
1041 3 a I PC, STKINT 
imat ;# TURN 
10414 052156 37 052146 $TKINT: CLR ;;CLEAR_COUNT OF ITEMS IN QUELE 
10415 ibe 127 052154 052150 MOV ; STKGSRT,S TKOIN :;MOVE THE STARTING SS OF THE 
10418 1 1 3 Obe1 052152 MOV KQIN, STKQOU He UE INTO THE INPUT & OUTPUT POINTERS. 
1041 176 0127 226 000060 MOV sor K @UTKVEC :; INITIALIZE THE KEYBOARD VECTOR 
ibuis OES812 OnSre? Geeoan OOUeE OY SEDU,SSTKVECHS 55 BE LEVEE ot ac 
10420 052216 012777 000100 126720 MOV #100, aSTKS >:ENABLE TTY KEYBOARD INTERRUPT 
1o4el 052224 RTS PC ?:RETURN TO CALLER 
10423 ;*#TK SERVICE ROUTINE 
10424 2*#THIS ROUT WIL ch RVICE THE TTY KEYBOARD INTERRUPT 
104e5 jaBY RE READING THE C TER FROM THE INPUT BUFFER AND PUTTING 
ted H IF Ne Hep Rhe YER is A “CONTROL-C” (4#C) STKINT IS CALLED AND 
10428 3 UP HEE TURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 
104 17746 126714 $TKSRV: MOVB aSTKB,-(SP)  #BICKUP THE CHARACTER 
1 2716 177600 BIC #40177, (SP) ;;STRIP THE JUNK 
i 3 i cd 000003 che (SP), #3 7331S ITA CONTROL c? , 
10434 OBanb i 053354 TYPE SCNTLC iver a EEN TROL -C (#C) 
1 737 052156 JS PC, STKINT 3 INI THE KEYBOARD 
1 4 7 TST (SP)+ 3; CLEAN STACK 
104 1 7500 IMP STOP j CONTROL C RESTART 
104 i854 - iS: bNeti«i 8” tA OMCH IF NOT” 
10440 052270 022737 000176 001140 CMP #SWREG, SWR ?:1S SOFT-SWR SELECTED? 
1044) 052276 001500 BEQ 65 ::G0 TO SWR CHANGE 
10443 052300 2s: 
10444 052300 022737 o00001 oS2146 CMP #1, STKCNT ;;I1S THE QUEUE FULL? 


f 


bb Pb bb 


oiSERERGn UR SDRE SS aa 


ee ee ee eee ee eee 
“I NNN ane 
Fu Lun~ ob 


SEEPEPLS 
DVR Loe owo a 3338 


PEPPP PCT? 
83 


ee 
DBR Loe 


REETee 


Oo 
o 





aon 


SCR OCS | 


= 


8-8 


29 
ay 


T 


— 
~ 
fr 
ee 


001200 


ue 
aa 


000176 
126464 
46 126460 


2716 177600 
000007 


001134 


052156 
leb4ee 
000001 
053366 


MACY11 ne Hy 


126556 


0S2e1ss 
0S21S0 


001140 


000001 


001135 


2S-JAN-78 





Y INPUT ROUTINE 


12:08 PAGE 200 


BNE 3$ ;;BR ANCH IF NO 
TYPE $BELL ::RING THE TTY BELL 
TST topo¢ i CLEAN CHARACTER OFF OF STACK 
3$ CMP (SP), #23 ribet ITA CONTROL -S? 
ek KS DISABLE rT ¥, KEYBOARD INTERRUPTS 
TST (SP)+ >; CLEAN EuAR OFF S 
31S: gare goIKS 8 TF 8 § 
MOVB astkg (SP) tee T TH Ghanae a 
IC 80177, (SP) HH IT 7-B1T ASCII 
Bis (SP)+, bel :31S ITA Cont =§} 
BNE 31$ $3 dé NO 
MOV #100, aSTKS 33 ENABL TTY KEYBOARD INTERRUPTS 
RTI 33 URN 
32S: INC STKCNT 3:COUNT THIS CHARACTER 
CMP (SP), #140 3328 IT R_CASE? 
BP (SP), #175 ERAN CPEETAL CHAR? 
BGT ug + BR onc I Ss 
BIC #40, (SP) ?:MAKE IT R CASE 
4S: MOVB (SP}+, QSTKQIN 3; T IN QUEUE 
INC TKQI HH TE THE POINTER 
CMP TKQIN, #STKQEND 3;GO OFF THE END? 
HOV -«BSTKGSRT, STKQIN :!RESET THE POINTER 
Ss: RTI : +t REFORN 


LeOFTHARE SUITCH REGISTER CHANGE ROUTING NNR e REE EE 


t kSoF TER ROUT INE 
ue I A FROn Ron The hi ER, AND WILL 
#SERVIC tien 8 T Grange ANGE IN Wl ITCH REGISTER TRAP 
gecels Mie sgt G, SWR NTERAUP T T-SWR SELECTED 
BNE ssEXIT F NOT 
TSTB KS 33IS A CHAR WAITING? 
fove KB, -(SP) PEE NOT, EXIT 
BIC rivtas (SP) ;:MAKE IT 7-BIT ASCII 
CMP ), 8? iTS IT A CONT 7 
BNE ITF NOT, PUT IT IN THE TTY QUEUE 
3;AND EX tT 
5 p SSASAAKSERAAE KAA ALELA RAL AAAL RAL KRKAERRRKEL RRL KAAKRRERRAE RE RH EE 
:&CONTROL IS PASSED TO THIS POINT FROM EITHER THE I Try ai NTERRUPT SERVICE 
;#ROUTINE OR FROM THE SOF THA WARE SWITCH REGISTER A RESULT OF A 
*#CONTROL-G BEING atone SOFTWARE SWITCH REG TSTEK BEING SELECTED. 
és: CMPB nu? 3;ARE WE RUNNING IN 
BEQ 33 >;BRANCH IF 
TST (SP)+ ;;CLEAR CONT ROL - G OF OFF STACK 
ISR PC, STKINT jFPLUSH THE T TTY QUEUE 
CLR KS ; DISABLE KEYBOBRD INTERRUPTS 
MOVB #1, SINTAG ::SET ENTERRUPT MODE INDICATOR 
TYPE ;;ECHO THE CONTROL-G (¢G) 


» SCNTLG 


SEQ 0200 


ee 


a0 


a 
bares) Rae 


i 


DONO £WU-O 


SaBtRNUR CON aOR 


THEW 
es 


itiditatatatasatagrgrtret ta 
‘s 


SPAT PATTI TST PSP PSP Po at SO PS 
wn 

rut e oe De 

Dall B 


ee Eee 


uty 
xy 


Oo 
wn 
Ww 
Oo 
2 
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3ee oooo0e 


177776 
001204 


MACY11 a a 


126242 


000001 


126220 


2S-JAN-78 


TY INPUT ROUTINE 


SGTSWR: 


19S: 
78: 


20$: 


17S: 


18S: 


TYPE 
MO 


SMSWR 
SWREG, -( SP) 
, SMNEW 
*(SP 
-(5P 
agtk 

asTk P) 

ace, ¢ P) 
ii a 

NTLC 
SINTAG, #1 
#100, 2STKS 
STOP 


) 
) 
Ss 


(SP), #2S 
ps 


git tae a = 
wue 
= 
n 


Ao owze 
r 
‘ye 


AG, #1 


 lotelete e ted 
MUO Ul, 
— 


~~ OU 
% 
fe 
+ 


CanERe 


eee 
~ 


P 
P 
S 
(SP), (SP) 
20$ 


N i tnn-neKfu 
AM-WW) 


wa 
© 
GC. 
m 
wn 


12:08 PAGE 201 


TYPE CURRENT CONTENTS 
;SAVE SWREG FOR TYPEOUT 
TAL ASCIICALL DIGITS) 


PROMPT FO NEW 


; 
4 
+3 
j THE 
Me 
+9 
3 


oP PROT TRY. AGAIN 


PICK UP CHAR 
;MAKE IT 7-BIT ASCII 


;1S_IT A CONTROL-C? 
; BRANCH IF NOT 
;3YE ECHO. CONT ROL-C (*C) 
30 CEPAN UP 
; 
44 
ry 
H 


Be iy k KEYBOARD INTERRUPTS? 


YBOARD INTERRUPTS 
CONTROL~-C RESTART 


::BRANCH IF NOT 

55 YES CHO CONTROL-U (fU) 

sel PREVIOUS INPUT 

;;LET’S TRY IT AGAIN 

3;1S IT A_<CR>? 

;;BRANCH IF_NO 

;iYES, IS IT THE FIRST CHAR? 

> BRANCH I 5 

;; SAVE NEW 

;;CLEAR UP STACK 

3;;ECHO <CR> AND <LF> 

ss | TTY KBD INTERRUPTS? 
$3 F NOT ine 
>;RE-ENABLE TTY KBD INTERRUPTS ~ 
; ; RETURN 

;;ECHO CHAR 

3; CHAR < 0? 

; ; BRANCH YES 

3;CHAR > 7? 

ss YES 


IF 
;;STRIP-OFF ASCII 
He THIS THE FIRST CHAR 
Hi H IF YES 


; HE 
3; TYPE ?<CR><LF> 
;;SIMULATE CONTROL-U 


SEQ 0201 
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CZR6HE .P11 2S-JAN-78 12:00 TTY INPUT ROUTINE 





i DSABL LSB 
i 

l 5 RRMA R EERE REE ERREH GEER REE RAE RL RRA RE RR RARER RARE RE RE RE 

1 ; THIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

iBeES + RETURN HERE + ARACT Co IS ON THE. Ls Te 

Bebe ;* i CuARACTER Is att CHE Bees OFF 

1 : 

1 SRDCHR: MOV (SP) ,-(SP) ; ;PUSH THE PC AND 

1 0004 coo002 MOV 4(SP},2(SP) 337 

: 2 0004 CLR 4(SP) i #GET READY FOR a CHARACTER 

10872 IE 053032 MOV #64S, -(SP) i tbut T NEW Pe ON 5 STACK 

10873 sean RTI :;POP NEW PC AND PS 

10878 052146 1S: Ist STKCNT ;;WAIT ON A CHARACTER 

18228 052146 DEC KCNT ;  DECREMENT THE COUNTER 

105 177102 oo00004 MOVB SSTKQOUT, »4(SP) 5 ;GET ONE C 

105 052152 INC $TKGOU i TE THE POINTER 

i 6 Ges 27 052152 oSe21ss cne STKQOUT, #STKQEND’ ; 4D10 IT GO OFF OF THE END? 

1Begs 603993 052154 052152 MOV SErmennt, $TKQOUT + Brencd te POINTER 

10583 053074 Od0Cd0D2 2s: RTI 

{bese sj sutevaeeteereaeenaeexaccnsenabbvasstssernsernacexnecennecness 
10586 :¥CALL: 

ipeea S RETURN HERE ay: g Or FIRST CHARACTER WILL BE ON THE STACK 
10868 2% a WILL BE A BYTE OF ALL O’S 
1059 010346 SRDLIN: MOV R3,-(SP) 53 

13832 053108 o0S046 ins = SB) sian CEAR RFE RUBOUT KEY 

105 1 012703 053332 1$: MOV aSTTYIN,R3 >3GE ss 

10s35 Os 108 o er 053354 2s: CMP agttyintee, R3 ;;BUFFER FULL? 

10596 pestis 10441 ROCHR :t86 AD ONE CHARACTER FROM THE TTY 
10597 05311 112613 MOVE (SP + (R3) i T CHARACTER 

10898 631 2 000177 10$: CMP , (RB) is IT a RUBOUT 

10600 : 00s 16 rst (SP) $388 hem THE FIRST RUBOUT? 

{pepe fe3t38 EEL 000134 053330 MOVB #’\,9S pi PR OE Ne A BACK SLASH 

10603 140 104401 053330 TYPE 

10608 148 177777 i Hoy &-1, (SP) j SET, THE RUBOUT KEY 

10606 ise be0327 053332 / cH R3, #STTYIN 3 STACK EMPTY? 

106 O53i66 111337 953330 Move (Ra), 98 SETUP TO TYPEOUT THE DELETED CHAR. 
10610 053170 000746 2g +:GO READ ANOTHER CHAR. 

10611 053172 Oo0S716 SS: TST (SP) 3 ;RUBOUT KEY SET? 

10612 053174 001406 BEG 75 ::BR IF NO 





CZR6HEO UNIBUS RK& DR PRT1 

CZR6HE .P11 2S-JAN-78 12:00 
10613 000134 
10614 053330 
1061 
1861 ooo0es 
1 18 0S3361 
1061 
i : 
i 
i pea332 
ee 
t 001204 
rae 
tay 000015 
1beae 77777 
i bo1206 
‘ 
aoe 
bs 
i 
is sos01s 
rue eta 
is el 
1064 000040 
10648 042516 
10649 0 
tet 
Head 
106S3 
10654 
10655 
10656 
10657 
10658 
10659 
10660 
10661 
10662 
10663 
10664 
10665 3416 011646 
10666 OS3420 016666 000004 
10667 OS34e6 010046 
10668 OS3430 010146 


. 
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ooo0de 
000004 


ooo 
000012 


osi 12? 
020127 


000002 


TTY INPUT ROUTINE 


nove #’\,9S ;; TYPE A BACK SLASH 
CLR tsp) ;;CLEAR THE RUBOUT KEY 
7$: cneB 82S, (R3) 2315 CHARACTER A CTRL U? 
AYRE IgeNTLU Hy 7Bag ONTROL “u" 
gs: CMPB #22, (R3) 2315 GnARACTER A “tR"? 
cLRB (3) tHCLEGR THE. CHARACTER 
TYPE *STTYIN :T THE INPUT STRING 
R ag 100° PICKUP ANOT HER CHACTER 
4$ TYPE * wee 3; 1YPE 
R § tH CLEAR THE FER AND LOOP 
3S nove (R3), 98 ?iECHO THE C TER 
CMPB biS,(R3)+ ;;CHECK_FOR RETURN ° 
BNE 2g 5 }LOOE IF NOT RETURN 
CLRB -1(R3) *:CLEAR RETURN (THE 15) 
TYPE SLF :: TYPE A LINE FEED 
TST tSP)+ me ; } CLEAN RUBOLUT KEY FROM THE STACK 
MOV (SP) ,-(SP) 3;ADJUST T the st STACK AND PUT ADDRESS OF THE 
nov 4(SP) e(SP2. 33 FIRST ASCII CHARACTER ON IT 
RTI ‘ ; ; RETURN 
gs: - BYTE g j i STORAGE ORAGE FOR ASCII CHAR. TO TYPE 
STTYIN: BH, 22 33 RESERVE 22 22 BYTES FOR TTY INPUT 
SCNTLC: :ASCIZ /fC/<15><12> + ROT ROL “C™ 
SCNTLU: 7tU7¢15><12> ;;CONTROL “U" 
SCNTLG: “BSCiZ Z4G/<18>< 16> :;CONTROL “G” 
SMSWR: ASC <15><12>/SWR = 
SMNEW: .ASCIZ 7 NEW = / 
. EVEN 


/SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5 5 He HE Se A aE AE 0 ME a 9 0 9 9 A 0 a a 0 a a a a 
: ATHIS ROUTING WILL + ata AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


IT T 
‘sth INPUT CTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
TOSS SUE a dowel RetbaG TE PERS Ue chemc ert itnden MS 
;*THEN BE RETYPED. THE INPUT IS poonsapinpel BY TYPING A CARRIAGE RETURN. 


j CALL: 
3% RDOCT 3k opt OCTAL NUN NUMBER 
2 i RETURN HERE 3k TTS ARE ON TOP OF THE STACK 
; : ;HIGH OBRDER BITS ARE IN $HIOCT 
sroocT: poy GeEbcGRED, —_HHERRUADE aeage FORT 

MOV RO, -(5P) 1 BUSH RO ON STACK 

MOV R1;-(5P) *PUSH R1 ON STACK 


SEQ 0203 


CZR6HEO UNIBUS RK6 DR PRT1 * MACY11 30A(10S2) @S-JAN-78 12:08 PAGE 204 SEQ 0204 
CZR6HE.P11 25-JAN-78 12:00 READ AN OCTAL NUMBER FROM THE TTY 





10669 010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 
13670 ete h i 1S: RDLIN f ?READ AN ASCIZ LINE 

1DE92 6 O10BS7 os3su4 Nov oROLSS teRD SAVECTT. > CHARACTER 
10ers GBR Soe01 ay | {CLEAR DATA woRD 

10676 iie046 2s: MOVB (ROs+,-(SP) 5 ; PICKUP THIS CHARACTER 

1 14, BEQ =. 3S :2IF ZERO GET OUT 

10677 000060 CMPB #’0, (SP) ::MAKE SURE THIS CHARACTER 

1 a: BGT 4$ ::1S AN OCTAL DIGIT 

i 1 Ie 000067 CHP #07, (SP) 

feb a ee 

i 102 Rot OB ae 

eh oe 

1 16 177770 BIC #407, (SP) ;;STRIP THE ASCII JUNK 

i 1 BOD fop)+, Ri 3 ADD IN THIS DIGIT 

106 726 3S: TST (SP)+ ;; CLEAN TERMINATOR FROM STACK 
10631 10166 oo0012 MOV R1, 12(SP) ?:SAVE THE RESULT 

106 10237 053554 MOV R2’ SHIOCT 

10633 1 MOV (SP)+,Re ;;POP STACK INTO Re 

10694 13601 MOV (SP)+/RI ::POP STACK INTO R1 

10638 1 nov (SP)+)RO 5 i POP STACK INTO RO 

1Deas bos7e6 4S: TST (SP)+ 23CL BR PARTIAL FROM STACK 

10698 10501 CLRB (RO) ::SET A TERMINATOR 

10639 OH4O1 a TYPE . :: TYPE UP THRU THE BAD CHAR. 
1O5bt 104401 001204 : TYPE SQUES 3372" "CR" & “LF” 

10005 reat suroct: “HoRD is PCH OROER BITS GO HERE 

10704 .SBTTL DOUBLE LENGTH BINARY TO OeTAL ASCII CONVERT ROUTINE 

10706 5% RB RGEK GLK RAGGA RRA AAA RRR RARER EKER RRRRRRRRRRRRARRRHRKKE 
10707 ?&THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
10708 j XUNSIGNED OCTAL ASCIZ NUMBER. 

10710 $x MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
10711 + i JSR Pc, a#$0820 ?;CALL THE ROU 

10718 a RETURN ::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
10714 

10715 os 04413 $DB20: SAVREG ;;SAVE ALL REGISTERS 

10716 peseen bieeol 0000 MOV 2(SP),R1 ?:PICKUP THE POINTER TO LOW WORD 
10717 3564 012708 053675 MOV #SOCTYL+13. ,RS ; ;POTNTER TO DATA TABLE 

1 718 3570 012704 000014 MOV #12. ,R4 +:D0 ELEVEN CHARACTERS 

10719 053574 012702,_177770 MOV #tC7'R3 : }MASK 

10720 0536 012100 MOV (R1)+,RO ;;LOWER WORD 

10721 0536 O1e101 MOV (R1)+/Ri ?:HIGH WOR 

107. 6 oo2 CLR Re :? TERMINATOR 

10723 053606 110245 1S: MOVB Re, -(RS) ::PUT CHARACTER _IN DATA TABLE 
10724 053610 010002 MOV RO; Re ::GET THIS DIGIT 


MACY11 30A(10S2) 2S5-JAN-78 12:08 


~ 
S33 


S883893 


Ce be ee ee tee ee 
“N 


Ses 


S5s55 
: 


HOBO VO £0 OO YON 


_ 


Sore 
wr 


NNNGY 
HE 


SSSeeeosecaca 
gi ze <= 
Won 


ts 


: 


: 


aro gores 


AAP PAP SASS SSIS SS ASS SSS SS SSS SS SOS EET 
N N 
“N 
MH-OWONOU LC 


oo00000 


ooodie O0S4030 


PAGE 205 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


DEC RY ;;COUNT THIS CHARACTER 
BGT 3$ ?:BR IF NOT THE LAST DIGIT 
sia eS PiBr Trait: HE EBS PT EOINTER FOR FIRST 
s° 
MOV RS, 2(SP) Ak yD g 3 SON THE STACK 
RESREG > RESTORE ALL REGISTERS 
TS PC ?:RETURN TO USER 
2S: ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
33: ROR R1 : : POSITION THE BINARY NUMBER FOR 
ROR RO He THE NEXT OCTAL DIGIT 
ROR RO 
ROR Ri 
ROR RO 
3° 
BIC R3,R2 MASK OUT ALL JUNK 
ADD #°,R2 ;;MAKE THIS CHAR. ASCII * 
BR 1$ ::GO PUT IT IN THE DATA TABLE 
SOCTVL: .BLKB 1 RESERVE DATA 


4, aa 
.SBTTL SINGLE LENGTH BINARY TO HECIMAL ASCIZ ROUTINE 


55. 5-36 ME ME ESE 9 A 9 0 a a A 9 a a eH 
;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
bes ero DECIMAL ASCIZ NUMBER. 


* i MOV NUMBER, -(SP) ;;PUT BINARY NUMBER ON THE STACK 
 % JSR PC, J8$SB2D > CALL 
1 i RETURN ::ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$SB2D: MOV 2(SP),1$ ;;SAVE BINARY NUMBER 

MOV #15,-(SP) ::SET POINTER 

ISR PC, a#$DB2D > CALL SOUBLE LENGTH CONVERT 

ADD #5/ (SP) ?ONLY ALLOW FIVE CHARACTERS 

MOV (SP)+,2(SP) ;;PICKUP POINTER 

RTS PC 3 RETURN 


1$: WORD 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5 5 He Me AE SE AE A ME 28 9 9 9 a 0 9 a a a HH 
;&THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
p BPEL EOL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


3% MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
2 JSR PC, a#$DB2D 
$i RETURN ;; THE FIRST ADDRESS OF ASCIZ 
7:IS ON THE STACK 
$DB2D: SAVREG ; ;SAVE REGI TERS 
MOV 2(SP),R2 ; ;PICKUP DATA POINTER 
MOV #$DECVL, RO ;;GET ADDRESS OF “SDECVL” STRING 
MOV RO, 2 (SP) :?PUT ADDRESS OF ASCIZ STRING ON STACK 
MOV (R2)+,R1 ::PICKUP THE BINARY NUMBER 
MOV (R2)+’Re 
MOV #10. ,4¢ ;;SET UP TO DO 10 CONVERSIONS 














CZR6HEO UNIBUS 6 OR PRT1 MACY11 30A(10S2) 2S-JAN-78 2:08 PAGE 206 
¢ -PLl 25-JAN-78 12:00 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
107 127 4o42 MOV aSTNPWR, RY ;;ADDRESS OF TEN POWER 
tia B1570s 4044 MOV SE TNPHRSS, RS i 
1 1S: CLR R3 ;;CLEAR PARTIAL 
19784 1401 2s: SUB (RY), RL ::SUBTRACT TEN POWER 
100 161 » SUB (PS), Re 
107 BLT 3$ ;;BR_IF TEN POWER TO LARGE 
107 INC R3 ?:ADD 1 TO PARTIAL 
10789 g0g77e BR 2s ; ;LOOP 
-107 1 3S: ADD (R4)+,R1 ? RESTORE SUBTRACTED VALUE 
1079 cossoe ADC R2 
19 ADD CR) +, Re 
1 CMP (RS)+’ (RS)+ ;;MOVE TO NEXT TEN POWER 
10794 703 oo0060 BIS #’0,R3 ::CHANGE PARTIAL TO ASCII 
107’ MOVB R3, (RO)+ ::SAVE IT 
1 DEC (PE) + He 
1 4S: .WORD O 
18990 1357 BNE i$ ;;BR_IF NO 
107 105020 CLRB (RO)+ ; ; TERMINATOR 
1 1414 SREG j 7RESTORE REGISTERS 
1 RTS PC 33 URN 
1080¢ 4 009 STNPWR: 145000 ::1.0€ 
1 35632 
10804 i 160400 ;;1.0€08 
765 2765 
113200 ;;1.0&07 
230 
0808 1109 041100 ;;1.0E06 
0810 ; Get 1o324° ;;1.0€05 
O8i2 m 4 aaye J 51.0604 
0814 054072 001750 1750 ;1.0£03 
0815 4074 0 sg 
bei? peulo8 BpdoGd . — 
0818 4102 o000i2 12 ;;1.0€01 
0819 054104 o00000 0 
Beuii8 BSpODBO —_— 
054112 ooo0i4 SDECVL: .BLKB + ;RESERVE STORAGE FOR ASCIZ STRING 


12. 
-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


$5 He HE AE AE AE HE AE 0 A AE AE a A HH HH a 
;*THIS Rou Ne ae USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


ee Bb pe 


ace" 
is Mov BNUMADR = (SP) ;;FIRST ADDRESS OF ASCIZ STRING 
é n 
054126 O10046 SSUPRS: MOV RO,-(SP) ;;SAVE RO 
41 016600 ooo004 MOV 4(5P),RO :;PICKUP THE POINTER 
054134 105710 1S: TSTB (RO) ;; TERMINATEOR? 
054:3¢ 001403 BEG 2s ::BR IF YES 


SEQ 0206 


SE SN Se 


| CZR6HEO UNIBUS RK6& DR PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 207 SEQ 0207 


RTI 
-SBTTL TRAP DECODER 


| CZRGHE.P11 25-JAN-78 12:00 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
| 10837 O54140 122720 000060 CMPB #0, (RO)+ 3318 ey AN ASCII “0” ? 
2s: + Bick Ue BY 
| iB 4is8 a7 OS41S6 Tyee RO, 3S 3 ver TYBING 
os4 +” 
: " HE NTER GOES HERE 
| ies pats e008 - abe . car +,RO HE FoRN 
10844 O54162 012616 nov (SP)+, (SP) t TRESTORE THE STACK 
1084S 054164 000207 RTS P : RET’ 
10846 |SBTTL SAVE AND RESTORE RO-RS ROUTINES 
108g ; CO Oe ERR tin, simmeapeaeie - pei ager aspit caer wea ee 
10850 : 
10851 : SAVREG 
1085¢ ; XUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
10854 i STOP---(416) 
1BBed La +2---(+18) 
10856 $% +4---R5 
10857 3% +6---R4 
10858 :% +8---R3 
10859 }¥+10---Re 
1 ?#+12---R 
: be 3#+14---R 
1OBE4 ates 010046 ee RO,-(SP) PUSH RO ON STACK 
1086S fey iss 010146 MOV R1,-(SP) >:PUSH R1 ON STACK 
10866 054172 010246 MOV R2;-(SP) +:PUSH Re ON STACK 
tere Besize Blase rey B=feb} 2B Ba BN re 
10870 054200 leeye 00022 NOV Tt Ae is BUSH Be OF RAIN FLOW 
iS Beiste Blee Re techies} Lieve Oe en 
10873 Os4e16 OLEH oo0022 Moy 22(SP)'-(SP) !:SAVE PC OF CALL 
10875 
108 ;¥RESTORE RO-RS 
16g98 ;*#CALL: 
10878 x RESREG 
10879 4224 $RESREG: 
1 ieee 012666 oo0022 MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
1088i 4 12666 O0000e2 MOV (SP)+) 22(SP) ? RESTORE PS OF 
10888 4234 012666 o00022 MOV (SP)+) 20( SP +:RESTORE PC OF MAIN FLOW 
ites Bevews Gleene Stee ny faphsige’®™ Line eee ionas 
1088s 4246 012604 MOV (SP)+)R4 +:POP STACK INTO RY 
0886 ge4es0 012603 MOV (SP)+.R3 : ?POP STACK INTO R 
ieee peused ptSeoT MOY CSPDa° RT iB Op stack INTO B 
18 Beueee O15e00 MOV (5P)+)R ; ;POP eT8 NTO R 
1 - 
1 


Bw 
Rieter 





—_— —- ———--- - - — 





i f peri RK eet 00 MACY11 S9A (10882 Benes 12:08 PAGE 208 


SBICKUP THE LOWER BYTE OF T eee TRAP” INSTR 


eee aa e eee 





STRAP: MOV RO, -(SP) 3 
4 oooo02 MOV 2(SP),RO 33 exKye 
ba -(RO) #580 
(RO),RO . 3;GE 
os4316 nov RPAD(RO) ,RO eae i "FOm TNOExING 
|e ee 
RTs RO me HS 





;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


RAR Rar 
SESE LL 
= 
oa it} : 


bb he he 


4 STRAP2: MOV (SP) ,-(SP) 3 3MO THE PC DO:IN 
4 1 000004 oj0002 MOV 4(SP5,2(SP) T 
4314 00000 RTI tiRES ORE THe Pea 


-SBTTL TRAP TABLE 
SOY THE STRAP INSTRUCTION. STARTING ADDRESSES OF THE ROUTINES CALLED 


DOD NOU Wr 


; ROUTINE 


3 coed érrPAD: ie 
4 éT 
1744 ST 


TTY TYPEOQUT ROUTINE 


) 
Ne OCTAL NUMBER (NO LEADING ZE 
7, I 


1 
1 
1 
1 
1 
104406) GET SOFT-SWR SETTING 
1 
( 
( 
¢ 
( 
¢ 


Dt 0 be ho be pe he he pe 


SLE TRSESTAIOTD, TF" Ae ORI IY PEL 

gilt) iy erty ermine eeueie 
eile) & 1 ton 
O4 ie} RES ORE RO-RS pong ts 


. + 
;CALL=RESREG TRAP+ 
INTERNAL LOOP ON ERROR 


CALL=SCOP1 TRAP+ 


ee 
EP PP oP 
Raw 
mwIN 
POO 
A 
333 
ecwswseseseres Ss eset eseses 


met 
ok 


er ee tee 
@ee@e ee ee ee we ee =e Se Ve ee ee we 
" 
i?) 
¢ 
3 


. 





| 
EE 


CZR6HEO UNIBUS RK 


CZRGHE .P11 


‘ 
- 
‘ 
' 
' 
' 
‘ 
' 


+ 
i 





NQOOOOCCOeG 





COl 
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capil tee eae 


— 
ae 
a 
-_ 
£ 


BR FIR 
oe its 


n Be 


a es 3 


g he SERVICE MSGS 


-& 
BSE2es: 


. BLKW 


-ASCII 


-ASCIT 
-ASCIT 


-ASCITI 


-ASCITI 


-ASCII 


-ASCII 


-ASCIT 


so. 322 SECTOR SOFTWARE INFO 


«CR: <LF>/UNIBUS RKO&-RKO7 DRIVE DIAGNOSTIC--PART 17 


<CR> <LF> “CZR6HEO/<CR><LF> 
<CR><LF>Z #%% CAUTION ###7<CR><LF> 


<CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/ 


(CR><LF>/OTHERWISE, CARTRIDGE FORMATTING AND,OR THE DRIVE/ 


<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/<CR><LF> 


* 


<CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE: 7<CR><LF> 


<CR><LF>7A.. HEADS MANUALLY LOADED/ 


“* 


ee | 





CZRG6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2S-JAN-78 12: 
CZRGHE .P11 2S-JAN-78 12:00 SERVICE MSGS 


7101 S0e Ts 
4 te 14 
4 -ASCII <CR><LF>/B. CORRECT PORT SELECTED/ 


coo 







020040 
re bezize 
oa 1s08 
O41 020056 -ASCII <CR><LF>/7C. WRITE LOCK DISABLED/ 

F cis 
i hay ae -ASCII <CR><LF>/D. DORIVE READY INDICATOR ON/<CR><LF> 
a i 
ine 051104 ith -ASCII <CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE BOTH/ 
Ht 1 


-ASCIZ <CR><LF>/PORTS DESELECTED/<CR><LF> 


-ASCII <CR><LF>/CHANGE XXDP PACK/ 


Lae 
ag! 
: 


ray 
£ 
rey 
2 
HH 
- 


-ASCIZ <CR><LF>/CLEAR LOC 40,RESTART PROGRAM/ 


oe 
Qe 


MSG3: -ASCIZ <CR><LF>/DRIVE(S) TO BE TESTED: / 


-ASCIZ <CR><LF>/BUS ADDR (177440): 7 


stp -ASCIZ <CR><LF>/CONTR ADDR (210): 7 


SRR 
S25 


R 
=] 
or 


MSGB: -ASCIZ <CR><LF>/INTR AT PC=/ 


ee ee ee ee Be Be ne ee Be be ee he fe Fe Fe he he fe bh he he = ee he Be FF he Fhe He Fe 


ee et Be eb 0 = 0 0 he 


FESS SPRINT IEC e Woy RSC 
gee 
cay 2 


R 
: 
Oo 
e 
do 


EE Se a eee Seen eee a ee ae eee = Gabe uos 
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SERVICE MSGS. . 


2 MSG7: -ASCIZ <CR><LF>/DRIVE O WILL NOT BE TESTED/ 







183 MSGB: -ASCIZ <CR><LF>/TEST 16 TAKES 2 TO 4 MIN. /<CR><LF> 





MSGS: -ASCIZ <CR><LF>/BYPASSING TEST 16/<CR><LF> 


+ 
+ 


MSG10: .ASCIZ <CR><LF><LF>/WILL TEST ORIVE(S):7 





=| = = 
I Ve 


MSG11: .ASCIZ <CR><LF><LF>/POWER UP RESTART TO TEST 17<CR><LF> 


-ASCIZ <CR><LF>/PACK BEING FORMATTED/<CR><LF> 





+ + 
+ 
+ 


-ASCII <CR><LF>/NO L OR P CLOCKS/ 


1¢ 







-ASCIZ <CR><LF>/ALL TIMING TESTS BYPASSED/ 


‘ ' 
J ve x 
sence 

’ 


O00 


+ 


-ASCIZ <CR><LF>/BYPASSING DRIVE 7 


47122 


+ 


55 
SEL 
Sot 
NSEC 
‘ -\8 
SE 
2 
Se 
Se 
<2 
72 
SF 


-ASCIZ <CR><LF><LF>/DRIVE 7 
-ASCIZ <CR><LF>/DRIVE SERIAL #7 


SoDod 
1,* 
Ay ay 


ee ee ee ee ee ee ee ne ee Bb be en Be Be en ee fe fe ee be ee 
me ee ee ee ee ee be eb ee eb bb ee ee 





3? 
; 6361 MSG17: .ASCIZ <CR><LF>/CARTRIDGE SERIAL NO. / 
if 
pusei MSG18: .ASCIZ <CR><LF><LF>/ABORTING BAL OF TESTS/<CR><LF><LF> 
[ry 
oes 
O46101 MSG19: .ASCIZ <CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 


s saeidieiiesasaslinnindebiintrbeinisc adepeelditaiapiipadiion si. SE- t 


a 


Cc 0 UNIBUS DR_PRT MACY11 30A( 1052) 
Cc -Pll 26 Fane7e 13:00 SERVICE 


— eee 


Bot Os ee be 
Seanad onl eeh eed ant ante 
NON EW- OSS Ue 





1 

1 

1 

1 

1 

11 

il 

11 

il 

11 

111 

itt 

1111 

111 

111 

111 

111 

iil 

111 

111 

111 

111 

ill MSG21: 
111 

111 

111 

111 

111 

111 

tit MSG22e 
111 

11) 

111 

111 MSG23: 
1114 

1il 

1114, 

11144 

He rsa 
tiiae 

111 

tH rss 
11151 

1il 

Hi nso 
111 

He nso 
111 

11159 

11160 

11161 
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SEQ 0212 


-ASCII <CR><LF>/MODIFIED VERSION OF FORMAT PACK TEST FOR MODULE TESTING/ 


-ASCIZ <CR><LF>/TO RESTORE HEADERS ON CYL O & 1, ALL TRACKS/ 
-ASCIZ <CR><LF>/BYPASSING TESTS 36,40,41 FOR MODULE TESTING/<CR><LF> 
-ASCIZ <CR><LF>/FORMATTING FINISHED/<CR><LF> 


-ASCIZ <CR><LF>/TEST 16 TAKES 10 TO le MIN. 7<CR><LF> 


-ASCIZ <CR><LF>/PGM ABORT PENDING.../ 
-ASCIZ <CR><LF>/HALT PENDING...7 


-ASCIZ <CR><LF>/PGM ABORTED/ 


.ASCIZ <CR><LF>/CPU HALTED/ 


SES 0213 


GOl 
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MACY11 30A(10Se2) 
ERR MSGS 
-SBTTL ERR MSGS 


3:00 


O UNIBUS RK& DR PRT 
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-Pll 
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EMe1: 


EM2e: 


EM23: 


EmMe4: 


Emes: 


EMe6: 


EM27: 


Emes: 


EMes: 


EM30: 


EM31: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


TOl 


MACY11 30A(10S2) 2@5-JAN-78 12:08 PAGE 215 SEQ 0215 
ERR MSGS 


7CERR SET IN RKCS1/ 


“RLS IN RKCS2@ SET CERR IN RKCS1/ 


/UFE IN RKCS2 SET (SACK) AFTER RLS IN RKCS2 SENT/ 


/VV NOT SET IN RKMR2/ 


/DRV TYPE SET IN RKMR2/ 


/DOT SET IN RKDS/ 
/DOTYE SET IN RKER/ 


/DTYE NOT SET IN RKER AFTER WRONG COT IN RKCS1/ 


/DTYE IN RKER DID NOT SET CERR IN RKCS1/ 


7C-D PAR ERR SET IN RKMR3/ 


“D-C PAR SET IN RKCS1/ 


CZR6HEO UNIBUS RK& DR PR 
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EM32: -ASCIZ /FLT NOT SET IN RKMR3/ 


EM33: -ASCIZ 7C-G PAR ERR NOT SET IN RKMR3/ 


EM34: -ASCIZ /D-C PAR NOT SET IN RKCS1/ 


EM3S: -ASCIZ /D-C PAR IN RKCS1 DID NOT SET CERR IN RKCSI/ 


eb 


EM36: -ASCIZ /CYL ADDR IN Be NOT SAME AS RKDC/ 


3 


EM37: -ASCIZ /CYL DIFF IN A2 NOT SAME AS RKDC/ 





EM38: -ASCIZ /CYL DIFF IN RKMR2 NOT SAME AS ’CYL DIFF’/ 





EM39: -ASCIZ /CYL DIFF & OFST IN Ae NOT =0/ 


EM4O: -ASCIZ /CYL ADDR IN Be NOT =0/7 


EM41: -ASCIZ /CYL ADDR IN Be DID NOT REMAIN =0/ 
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ERR MSGS 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A( 1052) 
25-JAN-78 12:00 


CZR6HE .P11 


MD/ 


<CR><LF>/7IN RTZ PORTION OF START SPIN CMD/ 
-ASCIZ /FWD NOT CLEARED IN RKMR2 BY S SEC OF MOTION FROM START SPIN CMD/ 


-ASCIZ /FWD NOT SET IN RKMR2 IN RTZ PORTION OF START SPIN C 


-ASCII /DRIVE READY IN RKMR2 NOT SET BY 1 SEC FROM FWD/ 
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eSRene RR MSGS 1 —~ agree 


-Pll 2S-JAN-78 le: E 

11442 061720 O20062 4502 40 
1443 17s 7440 
1444 17 t 4 
144 174 7See 
14 1 ia 1 1101 
144 1 1 1 7111 
1448 1 1440 O4e11 000 
itd 1 ORs 3 EMSe: -ASCIZ 720 SEC FORMAT NOT SET IN RKMR2/ 
1 10 052117 
1 4440 
i 1115 
1 103 O20060 EMS3: -ASCIZ /SEC O NOT FOUND BY SO MS/ 
1 if 7506 

71 1 4502 

020060 051515 
1 ie EMS4: -ASCIZ /DIFF SEC NOT FOUND BY 3 MS/ 
1 71 
1 4S0e 
440 





123 
mH ies p20 0 EMSS: -ASCIZ /ATTN NOT CLEARED IN RKASOF/ 
1 1 


Sie ELtESE 
SERS 
EBs S828 
SH ouNeH 
: 
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: - ASC /UNEXP MEM PAR TRAP/Z 
471 Beau EMS6 SCcIZ 
us ae 
ace EMS7: -ASCIZ /WCE a CYL 411, TRK 2, SEC 2/7 
a 
te 
479 EMSS: -ASCIZ <CR><LF>/SPEED OK IN RKMR2 NOT =0 BY TIMEOUT’ 


1 
1 
15 EMSS: -ASCIZ /LIM DET NOT SET IN RKMR3/ 
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Se 
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4 020124 7111 

s- piesi3 1S2e 

4 1 EM6O: -ASCIZ /HEADS HOME NOT SET IN RKMR2/ 

4 wo Bubel? OB0i0s ~ 
4 48 124 eSe 

4 1 11 104 

495 S13 11 000 

496 114 04051 104 EM61: -ASCIZ /LOAD HEADS NOT SET IN RKMR2/ 

497 042510 O4e2101 Oe01e3 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6EHE .P11 25-JAN-78 12:00 
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ERR MSGS 


EM63: 


EM64: 


EM6E: 


EM67: 


EM6B: 


EM6S: 


EM70: 
EM71: 


EN7e: 


EM73: 


EM74: 


EM7S: 


EM76: 


2S-JAN-78 12:08 PAGE 219 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/OLT SET IN RKCS2/ 


“MSG B3 HEAD REG NOT =0/ 


/READ HEADER ERR/ 


7CYL ADDR IN RKMR3 INCORRECT/ 


/READING CYL O HEADERS ON CYL 1/7 


/READING CYL 1 HEADERS ON CYL O0/ 


ZALIGN CART USED/ 


/UNEXP ATTN/Z 
/DSC SET IN RKMR2/ 


“FORMAT TEST BYPASSED/ 


7CTO SET IN RKCS1/ 


/RTZ NOT SET IN RKMR2/ 


“IDAE NOT SET IN RKMR3/ 


/PIP SET IN RKMR2/ 


SEQ 0219 
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Cc -Pll 25-JAN-78 12:00 ERR MSGS 


4 cd EM77: -ASCIZ /FAULT NOT =0 IN RKMR3/ 





ay i EN78: -ASCIZ /CYL DIFF IN RKMR2 DID NOT REMAIN = 1 IN SEEK TO SELF/Z 
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Sten EM79: -ASCIZ /NED SET IN RKCS2/ 
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Bagied EMs0: -ASCIZ /UNLOAD NOT SET IN RKMR2/ 
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Daese EM81: -ASCIZ /SPIN NOT SET IN RKMR2/ 
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Ul= 


O EMse: -ASCIZ /RTZ NOT SET IN RKMR2/ 
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eb bo 0 0 


EM83: -ASCIZ /READ HEADER ERR WORD O (CYL#)/ 


a EMB4: -ASCIZ /FORMAT IN RKMR3 NOT SET/ 
75 


EMsS: -ASCIZ /ILL ADDR IN RKMR3 NOT =0/ 
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EMB6: -ASCIZ /WHILE WAITING FOR CONTR RDY OR AFTER CONTR RDY REC’D/ 
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EM87: -ASCIZ /CANNOT READ BSE INFO/ 
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-Pll 2S-JAN-78 12:00 ERR MSGS 


-ASCIZ /SETUP CORRECTLY & PRESS ’CONT’/<CR><LF> 


Sm be pope ben = 
ete eee bh ee 
Bon es Ds fe fs bo Den be Be 
NOU LWt-O 


¢ 


POO OK COS 


EM89: .ASCII /NO DRIVES FOUND IN DEVICE MAP (SDEVM)/<CR><LF> © 


-ASCIZ /SETUP CORRECTLY & RESTART/<CR><LF> 


EMSO: -ASCIZ /DDT NOT SET IN RKDS/ 





-SBTTL DATA HEADERS 
DH1: -ASCIZ /TEST NO. PC/ 


RAR RRRaA RAN 
ae 4 


Da Be be BB be be Be he be Fe bh Fe be be be ee ee 


DHe: -ASCIZ /RKMR1 RKMR2 RKMR3 RKER RKDS RKCS1 RKCS2/ 


DOOM cEce Eee Se 


566 


DH3: -ASCIZ /RKWC RKBA RKDA RKASOF RKDC RKECPS RKECPT/ 


COOrrro 
2 


-ASCIZ /FROM CYL TO CYL CYL DIFF/Z 


ERP eoboRn 
; 


PRE 


DH8: -ASCIZ /WHEN DRIVE UNLOADED’ — 


ata 
ne 
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SESS LSLEC£S 
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at 04 EMsB: -ASCII /NO DRIVES FOUND ON BUS/<CR><LF> 


ee eee - = 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE .P11 


HEE) BeYERG BASi87 
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4212 OSe 
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BLUE ORE SEARLE Bae MRR ERROR a lolol soins 
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30A(10S2) 25-JAN-78 12:08 PAGE 222 
DATA HEADERS SEQ eee 
DHS: .ASCIZ /AFTER START SPIN CMD REC’D BY DRIVE’ 

DH10: .ASCIZ /AT END OF HEAD LOADING/ 

DH11:  .ASCIZ /AFTER START SPIN CMD & FWD SET/ 

DH12: .ASCIZ /AT INNER LIM FROM START SPIN CMD/ 

DH13: .ASCIZ /FROM OUTER LIM TO CYL 0 DURING LOADING/ : 
» 

DH14: .ASCIZ /AFTER SEEK WITH BAD PAR/ 

DH16: .ASCIZ /AFTER LOADING HEAD REG & SEEK CMD/ 

DH17:  .ASCIZ /AFTER RECAL CMD/ 

DH18:  .ASCIZ /AFTER UNLOAD CMD/ 

DH19: .ASCIZ /AFTER PACK CMD/ 

DH20: .ASCIZ /AFTER SELECT DRIVE CMD/ 

DH21:  .ASCIZ /AFTER SUBSYSTEM CLEAR/ 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE .P11 2S-JAN-76 12:00 
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a 124 is08 





30A( 1052) 

DATA HEADE 
DOH2e: -ASCIZ 
DHe3: -ASCIZ 
DHeS: -ASCIZ 
DH26: -ASCIZ 
DH28: -ASCIZ 
DHe29: -ASCIZ 
DH30 -ASCIZ 
DH32: -ASCIZ 
DH33: -ASCIZ 
DH34: -ASCIZ 
DH3S : -ASCIZ 
OH36: -ASCIZ 
DH37: -ASCIZ 
DH38: -ASCIZ 
DH39: -ASCIZ 


2S-JAN-78 le: 
RS 


/AFTER DRIVE CLEAR CMD/ 


/TEST NO. TRAP PC/ 
AFTER SEEK CMD/ 

/AFTER READ DATA CMD’ 

7 EXPECT/ 

7 ACTUAL/ 

/AFTER READ HEADER CMD/ 


7RO BO Al Bl Re Be 


/DURING SEEK CMD/ 


/SECTOR REG UNSTABLE/ 


/BETWEEN SECTOR COUNTS/ 


7FROM SECT TO SECT/ 


“SPEED OK NOT =0 10 SEC AFTER UNLOAD/ 


/AFTER LIM DET/ 


/AFTER WRITE HEADER CMD/ 


B3/ 


BL LLL . 


CZR6HEO UNIBUS RK& DR_PRT1 


MACY11 SRA 105) 





CZR6EHE.P11 25-JAN-78 12:00 DATA HEADERS 
11778 OOY443 DH4O: -ASCIZ 
ll 
ll 2114 
117 
1l 3516 OH41: -ASCIZ 
11760 0 
1l DH4e2: -ASCIZ 
117 
ll 
ll 
ll 
ll 
ll -ASCIZ 
11 
11794 
ll 
ll 
ll 
1l 
1l -ASCIZ 
1l 
ll De 
1l Ds 
ll D 
11 pe 
ll 
11 
ll -ASCIZ 
11 
ligt 
118t 
1181 
1181 
11814 -ASCIZ 
1181 
1161 
1181 
11815 AsSCIZ 
il 
il 15 
1l 
11 
it 101 
11 1 OHS1: -ASCIZ 
11830 1 
11831 4503 DHSe2: -ASCIZ 
11832 046131 
11833 042504 





E02 
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7WORD# HEADER WAS SHOULD BE/ 


/DURING RECAL CMD/ 


7ON SEC 0,2,4,6,8 CYL 410 TRK 2/7 


/FORMAT & ALL R-W TESTS WILL BE BYPASSED/ 


/BECAUSE OF LIMIT DETECT ERROR ON PREVIOUS TEST/ 


“COULD NOT READ BSE INFO ON PREV TEST/ 


/AFTER SEEK CMD TO INV CYLZ 


/MSG A&B IN RKMR2 & RKMR3 RESP., ARE INVALID/ 


“AFTER SEEK TO SELF CMD/ 


ZEXP CYL# CYL HEADER WAS/ 


SEQ 0224 
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DATA HEADERS 


CZRGHE.P11 25-JAN-78 12: 
11834 000123 

He 14 1 ° DHS3: .ASCIZ /ON SEC 10,12,14,16,18,20 CYL 410 TRK 2/ 
ll 

118. 

11839 31 032040 

rf 40 B3e039 

it 2 .SBTTL ERR OUTPUT DATA 

118de ' DT1 steetn SERRPC 

11 8ue po4428 003352 ‘ HMR1, HMRe, HMR3, HER, HOS, HCS1, HCS2 
i ? 003334 003322 

it 903399 903332 HWC, HBA, HDA, HASOF , HDC, HPOS , HPAT 
11851 

1185¢ 1116 001350 DT4: STESTN, SERRPC,FRCYL, TOCYL, CALDIF 
i 903352 HMR1,HMR2,HMR3,HER, HDS, HCS1,HCS2 
11 

it 903330 332 HC, HBA, HDA, HASOF , HDC, HPOS, HPAT 
11 

it 001116 oO01402 OTé: STESTN, SERRPC, PSEC, ESEC 

1186 903350 003352 HMR1,HMR2,HMR3,HER,HOS,HCS1,HCS2 
11 

LL 903339 903332 HWC, HBA, HDA, HASOF , HDC, HPOS , HPAT 
11 

it 16 OO1442 ODT7: STESTN, SERRPC,WOCNT, HDWD, TEMP1 
it 003352 HMR1,HMR2,HMR3,HER,HDS,HCS1,HCS2 
Hes — 

tiers 903339 903332 HWC, HBA, HDA, HASOF , HOC , HPOS, HPAT 
11 

11876 1116 001352 OTS: STESTN, SERRPC, TOCYL,FRCYL, CALDIF 
ligrs o03352 HMR1,HMR2,HMR3,HER, HDS, HCS1, HCS2 
il 

ties 903330 903332 HIC , HBA, HDA, HASOF , HDC, HPOS, HPAT 
11 

He 001116 001352 O0T9: STESTN, SERRPC, TOCYL, RHTAB 

ll 

168? 903350 og3352 HMR1,HMR2,HMR3,HER,HDS,HCS1,HCS2 
11889 003330 003332 HC , HBA, HDA, HASOF , HDC, HPOS, HPAT 
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CZR6HE 25-JAN-78 12: ERR OUTPUT DATA 

11890 003354 

11632 001350 OT10:  S$TESTN,SERRPC,FRCYL,RHTAB 

11894 003352 HMR1,HMR2, HMR3, HER, HDS, HCS1, HCS2 

it 003322 

i 903338 HWC, HBA, HOA, HASOF , HDC, HPOS, HPAT 

ll DT11: $TESTN, TRAPPC 

it 003412 OT13:  STESTN,SERRPC,E.A0,E.80,£.A1,E.81,H.AO,H.B0,H.AL,H.B1 
i 003376 

11905 003352 HMR1,HMR2, HMR3, HER, HDS, HCS1, HCS2 

tao? ' 003322 

11 003332 HWC, HBA, HDA, HASOF , HDC, HPOS, HPAT 

11308 003354 

113! 

1191 DT14:  S$TESTN,SERRPC,E.AO,E.B80,€.A1,E.81,E.A2,E.82 
Hi aaa Seah uae ea 

11918 003376 H.AO,H.BO,H.AL,H.B1,H.A2,H.B2 

1131 HMR1, HMR2, HMR3, HER, HDS, HCS1,HCS2 

11919 

11920 00 HWC, HBA, HDA, HASOF , HDC , HPOS, HPAT 

He 003354 

11 

il 003412 OTIS: STESTN,SERRPC,E.A0,E.80,£.A1,£.81,£.A2,E.82,£.83 
11356 603430 

11 903376 H.AO,H.B0,H.AL,H.B1,H.A2,H.B2,H.83 

i 7 

11930 352 HMR1, HMR2, HMR3, HER, HDS, HCS1,HCS2 

lige a 

11 003332 HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT 

11934 003354 

11935 

11937 SBTTL ERR DATA FORMATS 

11938 ° 7 

11 000003 OF 1: 3 

11940 O66 002 000 -BYTE 2,0 

iieue 066752 oeno7 000 OyTE 7,0 

11943 066754 o640S4 bH3 

Ligia 066756 000 -BYTE 7,0 


CZR6HEO UNIBUS RK6 DR PRT1 MACY11 30A(10S52) 2@S5-JAN-78 12:08 PAGE 227 SEQ 0227 
CZR6EHE.P11 25-JAN-78 12:00 ERR DATA FORMATS 


066760 000005 OFe: S 
O66 : 


11946 
11947 762 90 000 BYTE 0,0 
11 8 764 06 DHY9 , 
1194 000 -BYTE 0,0 ? 
11950 06 Hl 

11951 0667 002 000 BYTE 2,0 
11952 066774 O64004 DHe 

11953 007 000 -BYTE 7,0 
11954 064054 DH3 

ii 007 000 -BYTE 7,0 
1195 067008 000001 DF3: 1 

11958 7006 o02 000 .BYTE 2,0 
11959 rt 000003 OF4: 3 

14329 1§ oB4pba _ one rad 
1i9e2 7016 007 000 .BYTE 7,0 
11963 067020 064054 DH3 

11968 7 000 BYTE 7,0 
11966 0687024 o00004 DFS: 4 

11967 067026 gog 000 aByTE 0,0 
1136s Sertae O0oe 000 sEnTE 2,0 
11971 067036 000 -BYTE 7,0 
11972 067040 o640S4 DH3 

11973 067042 007 000 BYTE 7,0 
1l : 

i 13 pee Bue oesee8 000 sais =BYTE 0,0 
11378 067052 064) 56 _ aByTe ap 
11980 057063 oe uous 000 aByre 3,0 
11382 see oo? 000 -BYTE 7,0 
11 067064 O640S4 DH3 

11984 067066 007 000 -BYTE 7,0 
11382 

11 

11 067070 DF10: 4 

333 BEPRPS gsi = 00 sgyTe 0-9 
Hie Gerios owe; = °° geet 240 
11345 aati 007 000 -BYTE 7,0 
iigae Besibe oe4ea? 000 OB TE 7,0 
11996 : 
11997 067110 oo000S DFl2: 5 

11938 067112 0 000 “BYTE 0,0 
{daca best te 0es7Rs 000 OO YTE 2 
12001 067120 065174 OH36. 





UNIB 


CZR6HEO MACY11 30A(1052) 2@S-JAN-78 12:08 PAGE 228 SEQ 0228 
CZR6HE.P11 es T 


1 
2:00 ERR DATA FORMATS 


5 
g 
2 


7 000 .BYTE 2,0 
1305 Obras oB4bps , DH2 : 
12004 7166 oe ee 000 ; sByTe 7,0 
18008 Bes 138 "Ba? 000 -BYTE 7,0 
18003 067138 000 re we 68.6 
1201 71 065330 DHYO ; 
1201 067142 003 000 -BYTE 3,0 
1201 7144 064 DHe 
1201 2146 000 “BYTE 7,u 
12014 0671 064054 3 
151g 067152 000 -BYTE 7,0 
1201 
1ebig Seciss ooope 000 en” “ae es 
13020 bert 06376 DH1 : 
Heres TIES owes = OO pete 2.0 
Heres FE7ISE owe 00 li 
1508s beriee 007 000 -BYTE 7,0 
1 7174 00004 OFi6é: 4 
1 71 000 000 .BYTE 0,0 
1 063767 OH1 
7 002 000 -BYTE 2,0 
1 064004 DHE 
7 000 -BYTE 7,0 
10 O640S4 OH3 
721 000 -BYTE 7,0 
14 DF17: S 
pesst 000 “BYTE 0,0 
35 ven 000 OEY TE 0,0 
6 Sere saver Oe eo 
2 3558 064004 1) F 
3 007 000 BYTE 7,0 


ooote? 000 -BYTE 7,0 
OF20: 7 
000 


N 


aaRARRERRRAERES 
paanabg econ 
= 
: 


ee 
y 
£ 
= 


Ruusaenase cea taes 


ooo -BYTE 7,0 


5 
& 
g 


f 


hae poe De bas b= hes be ee 


FOIEREB IS SAS SAS SRECR RETRO EO 


reser 


ee ee ee ee ee pe ae ee ee ee ee ee 


RRL 
PRROR 


tJ 
oO 


3” 
-§ 


rat 
nn 
ne 


RERRRERER 
E 


IBUS 


pees 
ed y 
£vo 


NN Peeremtntery 


NN 
£ 


NNNNNANN 
See 


88 


RK& DR_PRT1 
2S-JAN-78 12:00 


0640S4 
7 


ooo004 
065776 


000 
000 
000 


MACY11 30A(10S2) 2S5-JAN-78 
ERR DATA FORMATS 
DH3 
-BYTE 7,0 
DFel: 4 
wre 8,8 
DHS2 
-BYTE 2,0 
DHe 
. BYTE 7,G 
DH3 
. BYTE 7,0 
DF ee: 7 
DH1 
Yi. oe * . 
can 0,0 
f 
BYTE 6,0 
DHeg 
-BYTE 6,0 
DHe 
. BYTE 7,0 
DH3 
. BYTE 7,0 
DF23: 7 
-BYTE 0,0 
DH1 
-BYTE 2,0 
Hes 
-BYTE 0,0 
DH32 
SYvE - Sa 
DHe3 
-BYTE 7,0 
DH2e 
-BYTE 7,0 
DH3 
.BYTE 7,0 


12:08 PAGE 229 


SEQ 0229 


CZR6HEO UNIBUS RKE DR “al 


MACY11 30A(10 BS-JAN-78 12:08 PAGE 230 
CZ2R6HE.P11  25-JAN-7 ERR BATA FO FORMA SEQ 0230 


1 
2:00 
a Car Me ae oe ee eee 


eb IRR ted ERR 


15090 
i 
183 STHIS TINE USES THE “ITEM CONTROL BYTE® (SITEMB) T9 DETERMINE WHICH 
103 pene 1s PORTED. IT THEN USES THE “ERR TABLE” (SERRTB) 
108 saGhORY O° oEFI INFORMATION IS TO BE REPORTED CONCERNING 
i i s+ ahahaha 
1 +opene SAVREG 
108 ;ENTER ERR 
109 
110 
il 
il 
il 
y 


BIC #1 BORO ; CLEAR SIGN NTENSION 
:FORM INDEX FOR ERR TABLE 


RRRRERRR RR RT 
pay 


TYPE » SCRLF 


0 
1 1S: #SERRTB, RO S ERR ENTRY 
118 HOV £R0)+, es ‘pone ao 
is TYP sScRLF ee eaerUse Cf lal LINE FEED 
118 TYP 
i 53: nog 0204 4S kp fee = 
i BEQ a RE ISN’T ONE 
1 
1 
1 


: 0 
SS: MOV (RO)+,R1 
os 


Le cap cap aap aed cael ceed cel cel eel eel ed el eel aed ned al aed eel ed eed ed ed ed ed od ed ed ee eT eee et 





4 
g 
; 
tT 
37 
30 4 
: ps 
i 
st CLR 4 ; T ROENT CH 
1 06 MOV CRO} +, RO ;GET NER 
i Bee ies ' 3H NUM “fhe 
: ae INO TNDen 
lel 1g 10S: nove tRO)+,R3 ;GET 8 ST R OF DATA WORDS 
18134 1 TST (RO)+ H pas ORMA 
16138 14 ret RS. > TEST IF BNY DA TR. FOR THIS HEADER 
lel 11S: MOV b(R1)+,-(SP) :PUT F AST DATA WO foaD ON STACK 
181 bee.” oa im ATA WORDS 
12140 BEQ 14g ;NO- Hq 
12141 TYPE SPACE2 :T SE TORS 
1elve BR lis *L 
1214 14S: DEC :MORE DH’S? 
1814 be | SCRE weil 
1 1g TST 2(RO) ;ONLY_A DH IN THIS REQUEST? 
1214 BEG iss ?YES-BRANCH BYPASS INDEN 
12148 75 4 COM RY : INDENT? 
iste? 4 15S hove 1SeRCER, sYES- TPE BH POINTER 
12152 067570 ; TYPE ;TYPE OH 





C O UNIBUS RK& DR _PRT1 
eSRene PI 25-JAN-78 12:00 


PRR 
oes 
ze 


Pe ee ae ee be he ee ee ee 
rururofurorerurorururuforuru fururu furore 
ee ee ee ee ee eh 
ODD VE LOO Ue OEE 
atatatatiatatat eMtatatatatat cate 


Betws 5 


ares) 
ocr 
353 
py 
Bets 
r= 


ifrais 


3 ooo0de 
001205 


067660 


777 010000 
7 001103 


buzeee 


3 
G20540 = 000 





MACY11 30A(10S2) 2@S5-JAN-78 12:08 PAGE 231 


TYPE E 
168: 


21s: 


17S: 

20s: 
111304 
ooo0e4 


ePAdee: 


ROUTINE 

oe? Ro) 

ise SQ 

ADD #2,R0 

198 

YPE $CRLF 

TST RY 

BNE 10$ 

YPE SPACE2 
BR los 

RESREG 
BIT #SW12, ISWR 
BEQ 25s 
CMP SERFLG, #20. 
BNE 25S 
MOV #STACK, SP 
IMP SEOP 
RTS PC 

.ASCIZ*“ 7 


:0H PO NTER GOES HERE 
; ’ 


:YES- H 
: INCREMENT DF_POINTER 
:SEE IF END OF DF BLOCK 


; INDENT? 

; NO-BRANCH 
;YES-TYPE SPACES 
; LOOP 


SEQ 0231 


CZR6HEO UNIBUS RK& DR PRT1 





CZR6HE.P11 25-JAN-78 12:00 

i 
1 

1217 

_ 12177 

12178 

| 18186 

| TSiBe 
12183 
12184 

13i8s 
lel 
12188 

| 12189 
12190 
12131 
He: 
lel 

| Bie 
He 
12198 

| 12199 
te 
18605 177560 
18207 177564 
15509 
12210 
1221 
Ha 
leel 
12214 
1ee1s 067744 900413 
15515 esses Big? 345 77776 
ieei8 7756 137 2 000%8 
iges6 Serer Boeiay BFTi85 
teess Bones 18a SEr7B3 
ois 
ibeee Ciara, Beers 
12228 070024 106004 

{ 


MACY11 30A(10S2) @S-JAN-78 12:08 PAGE 232 


TYPE ERR ROUTINE 
; OOT-11 -- VOOSA 
; DEC-11-U0DPA-A-LA 


; COPYRIGHT 1969, 1970,1 
: DIGI TAL EQUIPMENT OAR SORATION 


: SSACHUSE TTS 01754 
& - NAB : 
VEN” 
.=. +60 
RO = %0 ; REGISTER 
R = % ; NAMING 
Fe = i + CONVENTIONS 
R4 = %4 
RS = 45 
SP = 76 
PC = 47 
ST = 177776 ;STATUS REGISTER 
b.tvec = 4 sTRT VECTOR LOCATION 
0.STM = So ont ty nASK — ATUS REGISTER 
9. TeT = 580002 + ie oar on REGISTER 
RTT = ; at ihe 
> 
; RS IS USUALLY C 1DE eee THE CU 
> REST IN IT. ea AKPOT a 6 oh TO SEARCH 
: REPAAT TONS LEAVE IT Prete ISE "BERG, A ore AS 
: BE USED EXCEPT FOR JSR’S AND T T ADORESS POINTER eCAD). 
6.RDB = 177562 ;R DATA vem 
O0.RCSR = 177560 ;R C/ 78h 
9. TOB = 177566 ;T BATA A BUFFER 
0.TC = 1 4 ;T 
3 
| THETGLUEE 86% a won exr 
b 
: “ODT+2 T ODT - ~ WIP T REAKPOINTS 
: Use 8: 138 8 RESENT “ENTER (I.E. Solis eh BREAKPOINT) 
.ODT: .STRT ENTRY 
6.00 R 8 Ret ST 
O.ENTR: MOV T,0.UST : SEATER -- SAVE STATUS 
MOV 0. TVEC+2,ST Es Up LOCAL S STATUS 
V PC,0.UPC ;FAKE T 
IMP 0.BKi 
6.STRT: MOV #0. 0 ;SET T Up 
MOV : "geet D STACK 
BR Basti Hie PON TABLES 
O.RST: JSR ;0.SVR ae ete 
MOV *UIN, JO. ADR Tob REAKPOINT 
MOVE *PRI>R4 T 
RORB R4 


SEQ 0232 





- CZR6HEO UNIBUS RK6 DR PRT1 
CZR6HE.P11  25-JAN-78 12:00 

2 

177776 

ooo002 

22 071751 

22 000340 

55 071112 
2 


8 


me Bb be Be ee Bb eb bb eh ee he 


FEE ERERREERERS 
SPRUNG TAP IRON 
PISRETOR 
Or 
; e 
£ W 
£33 = 
238 


ee 

ees 

izes 

{ b7014 737 071676 
a ee Be 

igees roles Josie] 

tess Gentes Bices 

iscog 70164 00013 070436 
1227 1 

ier ee g32 067736 
ig Waele tee 
13680 

12284 








MACY11 30A( 1052) 
TYPE ERR ROUTINE 


RORB R 
nove 
MO R4,ST 
O.RST1L: JMP (Pt}+ 
071032 MOV #PTI,O.RTIT 
0.45: CLRB . 
000016 MOV #0.STM, 0. TVEC+2 
000014 MOV #0.BRK,0. TVEC 
BR 0. RALL 


b.REGT: Isp 


MO #0.TL,R4 
O.RSP: CMPB RO. (R4)+ 

BEQ 0. 

CMP #0. TL+0.LG,R4 

BHI 0.R 

I #177770,RO 

MOV RO, RY 
O.SP1: ASL R4Y 

ADD #0.URO,R4 

INC 

BR 0. SCAN 
0.SP: SUB #0. TL-7,R4 

BR 0.SP1 


2S-JAN-78 12:08 PAGE 233 


; INT 
3. PO 
; STORE 


we 


TATUS 


;SET TO RTI IF 11720 OR 705 
$20 0H PROCEED 

ATUS WORD TO TRT VECTOR + 2 
C_ TO TRT VECTO 

LEAR BREAKPOINT TABLES 


oO vWMo 


SEEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES O.TL AND 0.URO 


;SPECIAL_NAME, GET ONE MORE CHARACTER 
; That ApShess 
oe THE CORRECT CHARACTER? 

:1S T E SEARCH DONE? 
tARGR OFF of FAL 


; GENERATE ADDRESS 
;SET_ FOUND PLA 

;GO FIND NEXT CHARACTER 
;CORRECT CONSTANT 


} HANDLER - OPEN INDEXED ON THE PC 


’ 
; 
6. ORPC: JSR PC,Q.TCLS 
AOD |OCORE Re 
ASR Re aR 
Be Rs 
TST (R2)+ 
v Re, RS 
IMP 0.dP2 


b.eKpT: TST R2 
BeQ 42 OCRALL 
ASR sR 


BCS 0.ERR 
ASL RY 
MOV R4.0.ADR1 
BR o.bcd 

067736 O.RALL: MOV #0. TRTC,0.ADR1 
BR DCD 

; CMD DECODER - ODT11 


; REGISTERS RO-R4Y MAY BE USED, 


CURRENT ADDRESS IN Re 


MOVE ONE BIT TO CARRY 
3 Be F NUMBER 


;. AND Pcnrent BY TWO 
; UPDATE C 
;GO FINISH UP 


; B HANDLER - SET AND REMOVE BREAKPOINTS 


;IF tRoVE" Bre TYPED 
;. RE AKPOINT 
i CHECK IF 

RESTORE nid BIT 

*SET A BREAKPOINT 


;CLEAR BREAKPOINT 


SEQ 0233 


C O UNIBUS RK& DR _PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 234 SEQ 0234 






¢ Pil 25-JAN-78 12:00 TYPE ERR ROUTINE 
i ; REGISTER RS WILL BE CONSIDERED SAFE 
1226 i 6.ERR: BIS #1,RS 3CL EVERYTHING 
1bpeg O71 MOV #’?,RO ; 3 aloe Be TYPED 
lees9 07% 1630 JSR 5,0:FTYP ; 
| lees 104s: 71730 9. DCD: JSR 5°0.CRLS bTYPE CR><LF> 
| lees Y 0.D0CD1i: CLR R4 ; RY gnTA THE CONVERTED OCTAL 
| 15545 670549 60955 0.ScAN: $8R  -S0.GET i OEE "RETURN JN este 
13394 076: 35 | BobBeD CMP 39 Be Hs WIty ASCII 4 
lees 7% BHI 0, cCGL ;CHECK LEGALITY IF NON-NUMERIC 
122% ; 000067 CMP #°7,RO :C WITH ASCII 7 
1 BLO 0.cUGL *CHECK LEGALITY IF NOT OCTAL 
1 177770 BIC #177770,RO ;CONVERT TO BCD 
1 ASL RY ; 
1 ASL RY : IN, 
1 ASL RY : 
i 805 RO, RY s PACK RY REE BITS IN. RY 
1 BR 0. SCAN ete, ha 
1 O.CLGL: CLR ache 
1 071761 O:LGLI: CMPB RO Q-LGCH(RI) copes MATCH? 
1 BEQ 0.CGL 
1 INC Ri Fores FOR NE NEXT SEARCH 
le 000014 CMP Ri, #0.CLGT f he SEARCH 
12310 BHIS 0.ERR 
1231 BR *LGL1 REL 
le3l O.LGL2: ASL i in oor 
i 13 070334 IMP @0.LGDR(R1) TO R THO UTINE 
1331 O.LGOR: O.WRD  ; 7 
tts baat i ee on 
ie i 9.60 > G GO ADDRESS K_ 
1231 0:O0P1 : <LF> Y Ee QPEN NEXT 
12360 O:ORPC ; «+ Bteb,. TRE - PC 
13362 g-Brce ¢ 8 OOF 
1636 O:WSCH ; W sea WORD 
1e3e4 O:EFF 3; E RCH EFF TIVE ADDRESS 
12325 0:BKPT : B BREAKPOINTS 
le O:PROC ; P PR 
1 O.LGL = *-0.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 
1s363 : PROCESS / - OPEN WORD 
1¢ 6.wRD: TST Re GE Kus Re IS NON-ZERO 
1 141 BEQ 0.WRDA Skip’ 
1g 104 MOV R4,RS : VALUE N CAD 
12334 07037, O.WRD1: ASR RS t MOVE. ONE BIT TO CARRY 
12335 74 103711 O:ERR2: BCS 0. ERR ; JUMP IF ADDRESS 
12338 ASL *RESTORE THE CARRY BIT 
1 115 MOV aRS, RO ?GET CONTENTS OF WORD 
12338 O70402 004537 071466 5,0. CADV :GO GET TYPE OUT a@CAD 
12339 070406 000714 BR 0'DCD1 :GO BACK TO DECODER 
12340 070410 O4270S ooD0001 O.WRDA: BIC RS *CLEAR CLOSED BIT 


03 


CZR6HEO UNIBUS RK& DR PRT MACY11 S-JAN-78 12:08 PAGE 235 
CZR6EHE .P11 2S-JAN-78 12:00 sHbe RR ROUTINE — 
12341 070414 000766 BR 0.WRD1 ;GO BACK TO MAIN-LINE 


PROCESS CARRIAGE RETURN 


1833 
2344 
SES fee ee 
; PROCESS <LF>, OPEN NEXT WORD 


737 071676 6.0P1: JSR . TCLS 
7 TST it 
38 071722 0.0P2: JSR CRLF 


Cre veres 


88 EVERYTHING 


RETURN TO DECODER 


CLOSE PRESENT CELL 
GENERATE NEW ADDRESS 


MiB? & ss | 
| 


BR 0: WRDI 00 PROCESS IT P 
: PROCESS ¢, OPEN PREVIOUS WORD 
071676 6. BACK: JSR PC,0.TCLS 
ST -(RS) 


;GENERATE NEW ADDRESS 
;GO DO THE REST 


fururu! 
Haea ena 
o 28 
S 
te 
3 os 


a ee be be ae PO eh bo eh Bo he he 





2365 : 
5 : PROCESS 0, COMPUTE OFFSET 
b.0FST: ASR RS ;GET LOW. ORDER BIT 

12369 BCS 0. ERR2 jERR IF CLOSED 

te3ee Sel She 

1 ate TSR Sot F TYP regea SEPARATOR 

i 354 EC Re i COMPUT 

12375 DEC RY : 16 BIT OFFSET 

1 MOV RY» BO :T 

1 MOV RY ?SAVE RY 

i 071466 JSR Re AO : R IN RO - WORD MODE 
1 ney ‘ . Y T 

13381 BCs 0.0F1 iBaeaee Fr obo 

1 071466 J 5,0.CADV jNUMBER I IN RO - BYTE MODE 
13368 070240 0.0F1: JMP 0:0CD1 sAL 

1 . SEARCHES - SMSK HAS THE MASK 

12386 SMSK+2 HAS THE FWA 
13380 ; SMSK+4 HAS THE LWA 

1 070544 005201 b.EFF: INC R1 ;SET EFFECTIVE SEARCH 
12330 070546 OO0401 : 9. WDS 

15330 706s Bo87be 8: WO: ist ba + BAe CK FOR OBIECT FOUND 
15394 070556 013702 067732 seeps mat 9: Fen+2 Re sERR BRIG:  seeeee 

1 7 7 77 MOV *MSK,RS BET meee 

1s33P OOReEE 27 Be athens COM RE :AND COMPLEMENT IT 


CZR6HEO UNIBUS RK& OR PRTI MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 236 








CZR6HE.P11 25-JAN-78 12:00 TYPE ERR ROUTINE 
12397 0.WOS2: CMP Re, 0.MSK+4 ; IS THE SEARCH ALL DONE? 

1 BHI 0.6cD : 

1 Vv R RO : GET OBJECT 

i -EFF1 ; H IF EFFECTIVE SEARCH 
1 MOV RO, -(SP) exe. - 

S RRS . FANéy AAWER HERE 

1 Big FSF AND T WITH nasi 

1 0.WDS3: 9. 4 i RE F_NO MATCH 

1 MOV -(SP) ; R2,R4, AND RS ARE SAFE 
1241 JSR 340,¢ F :T <CR, LF? 

12411 MOV ;GET READY TO TYPE 

1 is JSR 5,0. ADV ; TYPE A eg 

i i JSR : O!FTYP tPUpE TT 

1euie Br ore + BO oy ET OA RENTS 

151? V (SP)}+, ; RESTORE 

iis 0.WDS4: oy (Re) ; INC MENT TO NEXT CELL AND 
i O.EFF1: CMP RY ; IS (X)=k? 

1 Q a : TYPE IF QUAL 

‘ v : 3(x) T 

»R 3 (X) 4X 

124 R3 

1 Ne R 3 (X) 4X42 

t RY 3 pt ME Sea Sy 

Q 0.WDS3 ; H IF EQUAL 

1 BIC #177400, RO > WIPE EXTRANEOUS BITS 

i nove RO, RO ;EXTEND SIGN 

1 BSL RO ;MULTIPLY BY TWO 

1 I RO ?ADD TWO 

1 INC RO 

1 ADD Re, RO ;ADD PC 

1243S CMP RO, RY :IS THE RESULT A PROPER REL. BRANCH? 
i 3 BR 0.WDS3 

124 ; PR - 

15439 ; PROCESS G - GO 

1 6.G0:  CLRB 0.P ;DISALLOW PROCEED 

12441 ASR R4 ; CHECK LOW ORDER BIT 

1 ¢ BCS 0.ERR2 : IF ODD 

1244 ASL R4 ?RESTORE WORD 

12444 MOV R4,0.UPC :SET UP NEW PC 

1 177776 MOVB #0°STM ST 3SET HIGH PRIORITY 

i 0. TBIT oP he 8+0-RSt :CLEA we 

154g 067724 4 Bie #0. TBT,O.UST ; T-BIT FLAGS 

134 o1 besois {een38 nov ON iREPt ANS TG tRae 

12451 071004 13200 0.G02: MOV (§P)+,R0 - :RES 

12452 1006 012601 (SP)+/Ri : RO 


CZR6HEO UNIBUS RK& DR_PRT1 
CZR6HE .P11 2S-JAN-78 le: 
101 1 
ipis 1 
1014 Qi 
101 1 
1 1 
1 1 067724 
4 1 067722 


a at at at at at at a at at gh at at a a at a at Ht 


a ee ae ee ee eb Bh Be Be Be fe 0 ee 


BPDRRRUSCe Siete ta 


WVsssssss883 


bb 0 0 0 


BSORR2OR—S.30 Ne" 


tu 
£ 
ites 


g 


<£ 


LORD EEO 





012637 067722 
2637 7724 
3 1330 
1 1750 
1314 
0137 067742 
i 737 067726 
1137 067724 
00040 


MACY11 


177776 
177776 
067724 


176S74 


aC LEGALITY OF PROCEED 
; E 


mmo 


CHANGED TO RTI FOR 11720 AND 705 


STATUS 
AND PC 


CLE PRO EED FLAG 
WAS COUNT SPECIFIED? 


sNO 


“Ww 


a4H 
+~4=z 
to 
pane 
a4 = 
m0 
| 
BS 
es 
4 
< 


Ee 


PHIGH PRIORIT 


7 UPON ENTRY 


eRe etaToe PC 


30A(10S2) 2S5-JAN-78 12:08 PAGE 237 
TYPE ERR ROUTINE 
MOV (SP)+,R 
NOY SPDs RS 
MOV (SP)+, Rd 
MOV (SP)+,RS 
MOV (SP)+;SP 
MOV 0.UST,-(SP) 
MOV 0. UFC, -(SP) 
O.RTIT: RTT 
; PROCESS P - 
: ONLY ALLOWED AFTER A BREAKPOINT 
é.PROC: TSTB 0.P 
BFQ 9. ERRI ‘ 
CL 0. 
TST Re 
OYUN OCT 
O.PRI: Nove Bo’ tM ST 
JSR 5,0.RSt 
0.Cl: MO #0.STM,ST 
NC 0.T 
BIS 80, 7BT,0.UST 
o 
? BREAKPOINT R 
; A TRT AKPO CAUSES 0. BRK 
: VARI AND NOS FI 
: ND GIVES CONTROL TO THE 
5.BRK: MOV (SP)+,0.UPC 
MOV (SP)+>0.UST 
0.BK1: JSR 9,9.S0R 
BRE’ 0: TBIT 
MOV 9.UIN, 30. ADR 
TSTB 0.PRI 
BPL 0.BKe 
MOVB 0: UST,RS 
BR 0:BK3 


HECK FOR T= 
F SET 


AS SAME AS USER PGM 
UP USER UST IF SO 
ON’T COMPUTE THE PRIORITY 


T 
Y 


RED, WHICH SAVES 
BREAKPOINT WAS LEGAL, 


TERS 
T 


SEQ 0237 


CZR6HEO UNIBUS RK& DR PRT1 
CZR6HE.P11 2S-JAN-78 12:00 


12493 071156 11370S 067726 


MACY11 30A( 1052) 


2S-JAN-78 


TYPE ERR ROUTINE 
MOVB 0.PRI,RS ; OTHERWISE PICK UP ACTUAL PRIORITY 


C.BKe: 


FO3 


12:08 PAGE 238 


SEQ 0238 





CZR6HEO UNIBUS RK6 OR MACY1L1 30A( 1052) 25-JAN-78 12:08 PAGE 239 SEQ 0239 
CZR6HE.P11 25-JAN-7; YPE ERR ROUTINE 
1 34 1162 7 ccc ;CLEAR CARRY 
1 1164 1 RORB RS :SHIFT LOW ORDER BITS 
1 % ll 1 RORB R : INTO 
1 il i RORB RS ; HIGH ORDE 
i463 Oeiiss tf 0.8K3: Rove  RE,ST FeUT THE STATUS AWAY T BELONGS 
1$500 1309 ett nov 0 GEC, RS ier Po, ir POINTS TO WHER Bes At 
MOV ORS. PROM THE, USER'S PC | 
13508 br iste Cae Re 8- URE, COMPARE WITH List | 
1 1é1 BEQ sO. Be ;JUMP IF FOUND 
1 1 I +9. SVTT :SAVE TELETYPE STATUS 
1 1 JSR * CRLF 
1 i MOV 4). 80 RY ;ERR, NOTHING FOUND 
1 MOV #0.8041,R3 
: 03 i JSR S 0, TYPE ;OQUTPUT “BE” FOR BAD ENTRY 
1251 1 067724 BIC ‘ ROT, 0.UST ; CLEAR QUT ANY POSSIBLE FAKE T-BIT 
1251 1 9.83 ; BRD CON TINUE 
1251 1 0.B2: DEC 0:¢ 
12514 rt BGT 0:C1 ; JUMP I 
} ig i 067740 HOY #i,0.CT ;RESET COUNT. 70 1 
1251 1 I 5,0. VTT se LE STATUS, RY IS SAFE 
1 1g 1 MOV 8 “BO 
1251 1 JSR 5,0:FTYP 
1e5e0 131 on HOV 0. AOR, RO arte POBRESS. OF BREAK 
teesh Betas oa lds baa =® 
i 1 0.DCD :G0 TO DECODER 
i585 : SAVE REGISTERS RO-R6 IN INTERNAL STACK 
1 071330 012637 071746 6.SVR: MOV (SP)+,0. XXX ;PICK REGISTER FROM TACK AND SAVE 
15588 O74 Ble? i eee oy oF» O.USE, is ves ERTERNOL Ae 
1 1349 1§e0e MOV ;-(SP) Sve 
1 1 1 MOV RY, (SP) REGISTERS , 
1 1 1 MOV R3,-(5P) : 
1 i 1 MOV R2;-(SP) > THRU 
12534 1 010146 MOV R1,-(SP) : S 
is8se i Bi 3746 071746 M v 0; xx, ~ (SP) :PUT SAVED REGISTER ON STACK 
- 071364 000200 RTS RO 
12539 : SAVE TELETYPE STATUS 
1384 071366 113737 177560 071752 6.svTT: nove O.RCSR,O.CSRI1 ;SAVE R C/SR 
1254, 1 1137 177564 071753 MOV 0:TCSR'0.CSR2 ;SAVE T C/SR 
1e54 07 1402 1 177560 CLR 0:RCSR :CLEAR ENABLE AND MAINTENANCE 
12544 1406 1 177564 CLR 0: TCSR :~ BITS IN BOTH C/SR 
1254S 071412 004537 071722 ISR 5.0. CRLF ‘TYPE <CR,LF> 
1es46 071416 O00 RTS RS 
12548 > REST TELETY’ TAT ’ 
1esu8 ; ESTORE TELETYPE STATUS 
} 


CZR6HEO UNIBUS RK& DR PRT1 


CZR6HE.P11 25-JAN-78 12:00 
1 14 071722 
' 1 is i 177564 
i 3 is 7 004000 
1255S O7 iuie 105737 177560 
Hee BrIES 1 ors 70 
12558 14 113737 1753 
i 59 071464 
i 
1 
1 1 1 
1 bri B1270% 072011 
1 1474 : 

te 
iste BrteR2 BLOES 77770 
1 151 
1257 151 
isere Grist 
15875 } isis 072004 
1 1 177776 
ies Bie iis 
16278 1 12703 072011 
iseet BPtENe aries 
1 071550 o0020S 
15285 
le 
i 07 1552 105737 177560 
pee 
eu Bie Barre 
ee 1B08 0817 oo00040 
152 1 1 708 000073 
125 71610 0017 
128 71612 o0020S 
13538 
Fe 
12602 
12603 O7 1614 0203 
1 71616 103426 
12605 071620 112400 


MACY11 30A(10S2) 


177560 


177560 
177564 


2S-JAN-78 12: 
TYPE ERR ROUTINE 


O.RSTT: JSR 8°92 ERLF 


TSTB “TSR 
te O.RCSR 
Q 8. Reel 
TSTB 0.RCSR 
O.RSEL: 6.CSR1, 
0.CSR2,0. TCSR 
RTS 


b.capv: mov R2,-(SP) 
0,-(SP3 
? 


BOE one 
Ra, ><R4) 


0.SPC: 


Sgeepnntaousenees 


4 


SEQ 0240 


-<CR,LF> BEFORE RESTORING 
;WAIT READY ON PRINTER 


{SKIP READY LOOP IF NOT BUSY 
;WAIT AED eR 


THE STATUS REGISTERS 


; Mais 3 our CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
; IS IN RO 


Oe 
3 ER START ADDRESS 
;CONSTANT ASCII O 


OCTAL CHARACTER 
RT CII 
| iN ER 
;SHIFT THIS MESS 
; RIGHT 

THREE WHOLE PLACES 
DONE? 


NO 
mehen RT TO ASCII 
; AND put’ $4 SEY 


;LWA 
REST ons STRING OF CHARACTERS 


RTS 
| RRR eROREGTEELARPYS AUT 


é.cET: TSTB  O.RCSR 
EPL 4 
et B OLFtye 
Se 4 oe 
CMPB 840 
BEQ 0.GET 
MPB 8’: RO 
BEQ 0.G&T 
RTS RS 

$ GENERAL CHARACTER OU 

: ADDRESS OF FIRST BYTE I 

: AODRESS OF LAST BYT 

O. TYPE: CMP R3,R4 
BLO 0. tyP1 
MOVB (R4)+,RO 


im 
SS 
a] 


KEYBOARD 
TER 
SIR P OFF PARITY FROM CHARACTER 


:CHECK FOR SPACES 


eee FOR SEMI-COLON 
IGNORE THEM IF FOUND 


TPUT ROUT INE 
E IN R3,’ (R3)> (RY) 


;CHECK FOR COMPLETION 
; EXIT WHEN DO 
;GET A CHARACTER 


Cc 0 UNIBUS RK& DR PRT MACY11 30A(10S2) 2S-JAN-78 12:08 PAGE 241 SEQ 0241 
Saat eee) 20 Fane78 12:00 TYPE ERR ROUTINE 

2606 071622 004537 071630 JSR 5,0.FTYP ; TYPE ONE CHARACTER 

2607 071626 600772 BR 0: TYPE 'LOOP UNTIL DONE 

: : TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 

12 971630 185% 177564 O.FTYP: TsTB 0. TCSR sCHECK STATUS. 

1 1 1 RO, 0.T *TYPE ONE CHARACTER 
et is ie baapge CHP FO, 3S ; is CHAR TO BE FILLED? 
Sele 1650 11 000044 MOVB ae44-(SP) :YES, INIT THE COUNT 
gbiz iee9 : 7 177564 O.TYP2: TSTB 9. TCR 

i 1 177566 CLRB 9.108 ;GENERATE NULL FILLER 
71670 003371 a 0. TYP2 
G7i6 SI (SP) ;POP STACK 

1674 O.TYP1: RTS RS 


o 
< 
+4 
m 
| 
m 
x 
~ 


; 
> CLOSE OR T 
NG NUMERIC FLAG, R4Y HAS CONTENTS 


PRSDROU AR UNM RR OREE 


pooas 
: UPON ENTERING, Re 
1 6. TCLS: ASR RS -GET LOW R BIT 
1708 pSabe BCS Q.TC : JUMP IF ALREADY CLOSED 
1708 os708 ist Re ; IF NO R TYPED THERE IS 
1 1 Q 0.CLS1 *NO CHANGE TO THE OPEN CELL 
1719 1s MOV RY, ORS :STORE WORD 
7171 Q.cLS1: RT PC 
1714 0:T¢: TS -(SP) ;POP EXTRA CELL FROM STACK 
2636 71716 000137 0O70220 0.ERR :AND SCREAM BLOODY MURDER 
* O.CRLF - TYPE <CR,LF 
2033 ; 8: &Rts - TPE <CR;LF># 
264 17. 71757 -CRLF: #0.CR+1,R ;LWA <CR,LF> 
Sous §7 1258 re hates 6. CRL BR bo eke aie 
4 1730 1 071760 O.CRLS: MOV #0.CR+2,R3 ;LWA <CR,LF># 
44 0717 7 071756 O.CRS: MOV #0.CR,R4 : 
4S 1740 537 614 JSR 5.0. TYPE : TYPE SOMETHING 
ebue 071744 o0020S RTS RS 
1 O.xxxX: =. ;TE ARY STORAGE 
Se4g Ot oe8 ooo ao 0:T: Bore g H ert FLAG 
2650 . 071751 000 0:P: “BYTE O !PROCEED FLAG = O IF PROCEED NOT ALLOWED 
26 : = 1 IF PROCEED ALLOWED 
26 071752 000 0.CSR1: .BYTE O ?SAVE CELL - R C/SR : 
eeet 071753 000 0:CSR2: :BYTE 0 :SAVE CELL - T C/SR 
5s . . EVEN 
sb5e 071754 o42S502 0.80: :WORD “BE 
Seeg Boi> Bi O.cR: «BYTE IS “CED 
2660 071760 os2 ‘BYTE °% 


hon nn nner reennelnrennn nner nnrennonnrenronnrenrnnronnnty 
o 

= 

bl 





CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 24e a SEQ de4e2 
CZR6HE .P11 2S-JAN-78 12:00 TYPE ERR ROUTINE ~ 





1 1 7 O.LGCH: .BYT "7 ; 7 
1gees 13e4 is BYTE 01s : CARRIAGE RETURN 

1e664 1763 O44 ‘BYTE ’§ : 

ieee Gites One ‘Bre gfe | fun 

ieee, Grifee 1 ee Pe ig 

1 1787 112 BYTE ’0O :; O 

1 1771 127 YTE ‘WwW ; WW 

teers Gis 1s re RO 

1 35 Bo 1223 105 [BYT B ; B 

1e674 000014 O.CLGT = .-0.LGCH ; TABLE LENGTH 
1 « Fed s . . 

15099 Boidoe 158 ~ ‘Byte °B {Nor 2 

12678 4777 115 BYTE °'M :CHANGE 3 

i5e e001 oog BYTE 9 tORDER og 

iBeaL 4 po0d06 0.LG ” st 8 TL HER ° 

1 = - ,™= . 

i 072003 sens 6. BUF: 2 “ 36 CHAR. BUFFER WITH 
1 072011 B40 : .BYTE ' ; TRAILING BLANK 
12687 "EVER 

12689 072012 000003 O.TRTC: TRT ; TRACE TRAP PROTOTYPE 
1e631 ?THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
12693 : = 0.0DT-40 

12694 6.uRO: O ;USER RO 

ee p 6; Uk 

1 0 ; R3 

i5eg9 E ; Re 

1 " : : p 

use: 8 USER BB 

1 0. UST: : ;USER ST 

1 0: PRI: :ODT PRIORITY 

i a 3S +LOW LIMIT 

12706 0 :HIGH LIMIT 

12708 ; + BREAK POINT LISTS, ADR1 = ADDRESS OF BREAKPOINT,CT = COUNT, 
i 708 :  UIN = CONTENTS 

1271 : 

iis Seno fee am 

12714 000001 END 





C O_UNIBUS Bx OR “?! 00 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 24 SEQ 0243 


4 
Cc -Pll 2S-JAN-78 CROSS REFERENCE TABLE -- USER SYMBOLS 


Bi; fae mene 


on} e358 
13778 
1 3e9 
338 26s 






3 
3 
aly 
14 
14 
34 
14 
314 336 
34 343 
aty 332 
: a Be 
AMTYP1= ay S34 
= ay Ee 
uti at Bel 
APTeSus Bt ais 103178 
Berens 100C 18345 10138 10273 1031S* 
APTSIzZ= OOC 754 103148 
APT 00 10140 . 102 103168 
ATESTN= Bt sty 3i6 
ATTA Se 9109 9128 9154 
AUNIT = th 
AVECTI= tt B63 
BVECTE= 314 354 
Sucee 43834*% S704* 7349% 9857 9905* 


ruroruru! 
So 
N 





am iS 


glee ps Lo3 
TERETE TOUS Ke RPE Thon MACY) SQRCAO Ree ERENCE TABLE =~ USER SYMBOLS SEQ de44 





BADTMO 050026 3908 99208 
BAI = 0000 13408 §713 
Bis 2 Lert 
to = 12698 1323 1355 1374 «+ «+2523 3947 9780 
gimp tesa ie 
E18) & tees 1s 
T = 1 r 1266 
BITOY = 12558 1265 
TOS = les4s 1264 
T = t 4 153 
TO8 = 12518 le6l 10027 
He an a ae 
IT10 = 10498 1328 134% 1365 1397 1411 2 1438 «©=6s«14S2.—s‘«dS29H4~—=s: 10080 
BIS & iss Hie tae Ney ES Sete some 
T13 = O2e0000 ® 1331 1 g 1 1 1 1414 1428 1441 14SS 10087 
BIT14 = 040000 iagug® 13321380 1369 1385 1401 S 14289 1442 1456 1466 617 9649 
TS = 4 1370 1386 1402 1469 4826 %17 9645 
BETZ" = SoB008 ie ie ie 
cs: Baas et ie ewe 
BITE = $0010 15e38 1329 a eo a 308i 1421 1434 1448 
= le5ee 1343 136213811338 140g Nee 1435 1449-3937 
BiT8 = Boicoo seas i855 tue Sieg SBE) data tdBG SMS?) ideP | d280 
BPTVEC= 14 te 
BSERR 4 a a * 71 
Beesee psdaee Eae5. e808 109418 e678 se 
BYP 236 402 4054 9 4130 4157 Wibl WIS go ei 
Breet lacs on et Dee iG en ep ee ee ee ome 
BYPT16 001340 23858 36678 36728 77% 36 36878 3691% 4961 
BYtiea Babes iy obs 
CALADD 001366 Py 6317% 7143% 71738 7195 7279 7297 «©7334 «+#$7341% 7352 %ll %621 
CALDIF 001360 7a2e® ,20be8 = 5077 Si0s* 5138 6110" 6426* 6622 71778 #+7739% #&gO7S* s425* 8779 
pe afaj® df42 o843 82k SRY eee dBaS BPG RSL BTB2 «Bus? ua? 
x3 ss ee <5 oe as ape 8124 8249 48474 «8599 8621 
ccyL =_ 01354 e3338 a74e  S0be 50 s0e3 $i ee i030 10 786S* 201% 98SS1* 
GERR = (0005 13538 soar atta eed ert 5396 5728 57885873 5317 6011 6047 
$339 q 3 «$358 «6$383 | «SeagSRGk CSRS 58835833 «9843 588> = tae 
8099 #8168 8224 #8293 #8341 #8403 8449 8518 8574 8643 8691 8761 9300 


r 


ee wes «- - - 


CZR6HEO UNIBUS RK& DR PRT1 MACY11 30A(10S2) 2@S-JAN-78 12:08 PAGE 246 SEQ 0245S 
CZR6HE.P11 


ees eee —) 


| 2S-JAN-78 12:00 CROSS REFERENCE TABLE -- USER SYMBOLS 
| ornT = 010000 : 5969 58so Sg14 5936 
| Sees paises g333° Sei * 53 gees Rit’ 4733 «4859 «= ss«44#89 5007 1 SO 
| a fo Fe pe ee oe Be pe fl Be Be Be oe 
pies piss bi83 thy S33 ooda PAS 7e7e g5¢ 752 7558 6704 7751 
£058 ZB0e ce23 gers 7 fe Bille Bite Beil 8237 8267 8437 8462 
CKCERR Ousoi2 300) 30s) Sirs 500, Sess 
cLEAR = Tails “See S085 $e SEM! OS?OBME?««OSRIE.«BERP «| «GSZ ER 
CLKOF 047302 4683 4697 4803 97518 
CLKON 7206 3657 ang 4715S 4741 97298 
CLOCK 7246 7 Q 8 
ker LG rte T228e 6gi4e 
COUNT 00137 S388 YB7C# 4Y686% 4713% 4739% 9741% 9743% 
CR 0000 11848 10184 10194 10944 1095 10954 109S8 10968 10977 10984 10992 10997 11002 
ioor" ois iibeg iiGey 11089 HGH 11633 11683 11087 11050 11068 1108011088 
itis rf 40 11748 11986 11184 14933 11964 119326 11100 11199 11418 114 g 14259 
on = ae 13e38 10155 10194 
Lo ee a a es 
a gin}. bie 2335 . 6815 947S% 9476# 9477 9478% 9479% 9480 949g" 
CYLDIF 001362 gaxee av Bae S077, «Sle? $193 5138 5208 S415 $753 Galg gabe G29 
x 1% 9463% SYG6N# 946S* 9466 S468% QugSe 9486 9487 
, Bele, Bede Seis Sess 
rin oyzi6y a 
Soa f 
DATCHO OHGN7e ae Byes $870 Sas) g0DB GOS gens goes gee 519 GaIS 71567301 
DCK F pon008 13708 
pee. = 920000 sae 4 
por en = 34 32335 ae, ae 4213 
Beep z pooiee 1 : pi B cata 4510 4518 
OF 1 744 es 4 73 34 2596 Boe soe 2614 2682 2688 2639 2704 2709 
14 1 7e4 Ax, fe 73 , Gide 2749 23859 egay 23909 2934 2994 
DF10 067070 n Ff zou £33 26 804 28s4 2369 2974 2979 2984 
espa 2533 S001 SI 3519 S024 5028 Sr3 308g ibd Sig Bies 3s 
374 73 iTeabe 3ha¢ 3470 ES e4 326! 3576 334) 3596 3606 3611 16 


21 26 
3084 119978 





PAGE 24 


117098 
11992 


3513 
3052 
117338 


11994 
3508 


CZR6HEO UNIBUS RK& DR_PRT1 MACY11 30A(1052) 2@S-JAN-78 12:08 7 
CZRGHE.P11 2S-JAN-78 12:00 CROSS REFERENCE TABLE -- USER SYMBOLS 
DF 14 7134 23 1gogg* 
DF 1S Bert 4 3154 1 364) 3224 3334 120188 
pris 7 179 7 ce 8 
ped 067614 339 4 120368 
2 066760 51 56 36 119468 
sto ete ee 
2954 3 S35) 3034 039 
9 4 74 32793 3284 
30 sR00 3505 3510 
3550 31 120468 
Brae be7514 See 26 , ‘ 759 2774 2779 
3204 3203 5480 5cee 3560 3641 
DFe3 067350 7394 5033 e809 8120838 
DF3 7004 369 119578 
a a 
Fe 067044 7 b 3 \ 2. 3 3384 
DH1 063767 3c97 3s 5383 es34 2600 
gris 17 e S (4 S136 
puso ge a ee 
Bi Beiee Se ge ila 
Bis Bes Be He BS Bo Hee 
DH14 0644 : : P 7 7 767 ‘937 eHe 
DHi6 4476 7 34 3639 
pis SS a: ae 
DH18 064S60 61 2634 2639 3604 
DH19 064601 26 7 117128 
DHe 4004 ieee 1194 A 11961 11970 11981 
DHeO ntta ; i 8 . 
06464 6 23 17s: 1117198 
Bel Hee re ee cee 
DHe3 064723 117278 
DHeS 064744 , a 3027 3032 3037 3042 3047 
ped7e B 7 7 2952 3327 3332 
SOO 117378 1 12072 = 16087 
065017 117398 12054 12076 12091 
DH3 4054 ts a i ti 4 11963 11972 11983 
prio 068027 5192 3132 3478 3803 
DH SOSS 1174S@ 1 12074 12089 
DH33 5102 32 3 42 3247 3267 8117498 
else 4 11pe8 ‘ 
2} 5 135 * 
ne a 
DH38 065263 3142 3147 3152 3157 3162 3167 


3172 


3002 


117008 
3302 


12003 


3518 
3057 


1200S 
3543 


3564 


2824 2829 
2904 2914 
3144 3149 
3309 3430 
3525 3530 
os4 3039 
3410 3415 
2680 2686 
358 2e88e 
S84 3899 
12085 
3087 3092 
3307 3312 
le0le 12022 
117238 
3252 3257 
12014 12024 
3548 3594 
117718 





2834 28393 
2919 S760 
3154 1S9 
3435 344 
3535 354 
30893 3094 
3420 3425 
2697 2702 


2907 2932 
116418 11950 


338 3387 
3317 3322 
12031 12042 
3262 3347 
12033 12044 
117418 


3393 


12058 


BBB BBD 
PH 
<<< Sa~* 
" 


ian 


% 
3 
D 


o000 
Somes 
m 





BO4 


| CZRGHEO UNIBUS RK& OR PRT1 MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 248 SEQ 0247 
| CZRGHE.P11 25-JAN-78 12:00 CROSS REFERENCE TABLE -- USER SYMBOLS 
135424 A 2 3493 3498 3533 3538 #3553 3558 3589 117748 
3 4 g 15hee 3282 3287 ®©«33292 3398 3574 117838 
117928 12038 
43 117998 
1808" 
4 an 3413 3418° 3423 3428 3433 3438 3443 3448 3453. 118148 
Be vag —" 
3337 


34 
a 
eile iigsee 11573" 
mt eeu 263 2654 2659 2664 2669 2807 i 16638 
040000 


e8ee2 2827 e982 3569 3609 


ry 
*  3865* 4616 


1s 23858 *  3750% 10057% 10079 
Q i3sie oe 5928 6057 6221 6374 6532 74S4 7626 7843 7368 8179 8304 
paneaa 5337 4110 91728 9175 2 
=“ PRR EB R EB RR 
pe f jel Be be Be me fe ee ke me 
or ofa is, 
1 





; i nell aeealLamel 
£ 
oS 
ca aS ee 
<£ 
-_ 
~ 
N 
a SSS ihn ase 


3 
: 4044 414 
% gaig* 3949" 3966 3981% 4011% 4030 4134% 4200 8870 8969% 
m : 3944 3983 4096 8952 
at 
438 
es44e 
458 
23898  3838% 4223% 
i isce 2288 3741 
ts 
0000 1 358 40. 4138 44 4521 
066076 es? es tat 2es95 2601 2607 2613 2619 2625 2630 26 2640 
a 2681 7 23 se38 2703 708 27 43 2718 723 728 2733 2738 
e 2748 03 $8 2883 308 2933 2968 73 78 988 
ta $738 3 008 30 13 30 18 3 3028 3063 3068 73 3073 
10 1 11 1 le 13 138 3163 168 ait3 3178 1 3193 
3198 3213 3218 3223 3258 3263 3298 3313 3318 323 3328 3333 sae 
3348 3353 3363 3373 3378 3399 3404 3469 3565 3570 3875 3590 9S 


———--— --— -—_—_- —_, 
} 


CO4 


SEQ 0248 


Si: Re Be Re E 
Sek i Ha ey ERS 
Baik i He BS BR 2 

Ei i Re RG AGE RE BS gs 

j REG § BRR REE BE ee REL 

A es ee ee 


gi SiG: SMS Se ae Bs 
i) GRC aE RREREEISE ar: 
rE SE t | SeEOmERE BG 
&7 BERGE | SSRIDARRES Ri: 
41 SRSEU | EDRMNERING cw 
; RENIN ERE Hoe 
3 ag a 


ISLS cel Seite aut Can cee en eee 


Sanc78 


CZR6HEO UNIBUS RK 
0664 
Seed? 
066500 
066560 
066650 
066136 
ere 
i 


0.00T = 000400 
D.00O0R= 000200 
D.DORA = OO0040 


D.ORDY= 000200 
2": PER 
LT = 900200 


D.ACLO= 0001 
D.BRHM= 0001 


CZR6HE.P11 
: 
| D.CART= 000400 
| 


- ee - 


DO4Y 


MACY11 30A(10S2) 25-JAN-78 12:08 PAGE 250 


SEQ 0249 
8082 


gages cake fake 48290 Saar 
fey idsee icc, | BURRS 
siete gare 8 SERS 

fats Gea ieee =| SE 
as S3385 Ge FS 


7870 


7203 7S22 7746 
pe 3 


a eS 

> SB wee - ae 
i] 28 Ree eee 
c§ © We; SE i ee 


oat 28 SEY Siete f Pogae 
2 ON ie es Gee Ct 
be b O52 5S Rick? Seo — es 


CROSS REFERENCE TABLE -- USER SYMBOLS 
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